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INTRODUCTION 


In  order  to  measure  the  effects  of  operational  environments 
on  cognitive  performance,  the  Naval  Medical  Research  Institute 
Performance  Assessment  Battery  (NMRI-PAB)  was  developed.  The 
rationale  for  the  development  and  implementation  of  the  NMRI-PAB 
and  a  detailed  description  and  specification  of  the  Executive 
program  and  the  eight,  tests  that  constitute  the  assessment  system 
were  presented  in  a  previous  report,  'Naval  Medical  Research 
Institute  Performance  Assessment  Battery  (NMRI-PAB) :  Performance 
Assessment  Battery  Documentation.*  The  present  report  provides 
the  complete  computer  source  code  for  the  NMRI-PAB.  The  source 
code  includes  the  Executive  program  and  the  eight  component  tests 
of  the  battery.  The  Executive  program  organir.es  and  controls  the 
individual  tests  of  the  NMRI  PAR.  The  eight  component  tests  are: 
the  Matching  to  Sample,  tho  Stroop,  the  Grammatical  Reasoning, 
the  Manikin,  the  Numerical  Memory,  the  Pattern  Comparison,  the 
Repeated  Acquisition,  and  the  Visual  Scanning  tests.  Each  of 
these  components  is  designed  to  be  compiled  as  a  separate 
executable  program.  The  Executive  program  "calls'  each 
individual  test  as  it  is  required. 
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NMRI-PAB  LANGUAGE  INFORMATION 


The  present  software  is  written  in  the  BASIC  programming 
language.  The  source  code  has  been  designed  to  operate  with  and 
he  compiled  by  Microsoft  QuickBASIC,  Version  3.  The  source  code 
was  originally  written  in  BASICA  and  GW-BASIC  and  later 
translated  to  QuickBASIC.  Relatively  minor  code  changes  should 
allow  the  software  to  operate  with  a  variety  of  BASIC 
interpreters  and  compilers.  The  QuickBASIC  Version  3  language 
requires  an  IBM  PC/AT  or  compatible  computer.  The  source  code  is 
designed  to  function  with  the  Microsoft  Disk  Operating  System 
(MS-DOS  or  PC-DOS) ,  Version  2.0  or  later. 
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NMRI-PAB  SYSTEM  FEATURES 


( 


The  source  code  generally  follows  a  similar  format  for  all 

( 

eight  of  the  battery  tests.  Certain  common  programming  features 
are  found  in  all  of  the  tests  and  are  briefly  outlined  here. 

At  the  beginning  of  the  source  code  listing  of  each  test 

i 

the  INCLUDE*  metacommand  instructs  the  program  to  switch  to  a 
program  called  ' COMMON . BAS ' .  The  Executive  program  initially 
obtains  the  subject’s  name,  date,  filename,  etc. ,  and  later 
passes  that  information  to  the  common  program  variables.  Each 
individual  test  can  then  retrieve  that  information  via  the  common 
variables.  This  allows  specific  information  (subject’s  name, 
date,  etc.)  to  be  appended  to  all  data  files  and  to  control 
particular  programming  functions  in  certain  individual  tests. 

All  timing  aspects  are  controlled  by  the  software  clock  that 
is  part  of  the  Disk  Operating  System,  which  in  turn  is  dependent 
upon  the  computer  hardware  clock.  The  most  accurate  timing  that 
is  possible  through  the  software  is  at  a  resolution  of  hundreds 
of  a  second .  Near  the  end  of  the  source  code  listing  for  each 
test  there  are  two  routines  concerned  with  timing  aspects.  One 
of  these  routines  reads  the  software  clock  and  retrieves  the  time 
as  hours  :  minutes  :  seconds  :  hundreds  of  seconds.  This  routine 
uses  a  Disk  Operating  System  call  to  obtain  the  time.  The  other 
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timing  routine  converts  hours  :  minutes  seconds  format  to 
seconds  only.  These  timing  functions  are  used  repeatedly 
throughout  the  component  tests,  for  example,  to  time  the  duration 
of  a  test. 

At  the  start  of  each  test  a  20  second  i n ter - tes t - i n terval  is 
programmed  using  the  above  timing  function.  The  interval 
consists  of  a  14  second  blank  screen  followed  by  a  6  second 
'traffic  light.'  During  the  'traffic  light*  the  screen  is  red 
for  2  seconds,  yellow  for  2  seconds,  and  then  green  for  2 
seconds . 

All  tests  store  information  about  each  trial  in  a  data  array 
that  is  updated  during  each  trial.  At  the  end  of  each  test  a 
data  file  is  opened,  given  the  name  that  was  passed  from  the 
common  program  (from  the  Executive  program)  along  with  a  three 
letter  extension  that  is  unique  to  each  test,  and  all  of  the  data 
i s  wr itten  to  the  data  file. 

In  all  of  the  tests,  an  attempt  has  been  made  to  insure  that 
only  one  response  can  occur  at  a  time  (two  response  buttons  can 
not  be  pressed  at  the  same  time)  and  that  a  button  must  be 
released  before  it  can  be  sequentially  pressed  again  (holding  a 
button  down  throughout,  several  program  events  will  not  be 
recorded  as  multiple  responses)  . 

The  source  code  assumes  that  all  response  inputs  to  the 
system  are  from  a  parallel  digital  input/output  device  such  as 
the  Intel  8255  parallel  port.  The  addresses  of  the  parallel 
device  in  the  present,  code  are  those  of  the  Scientific  Solutions 
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Lab  Master  board.  Changes  in  these  addresses  would  allow  the 
source  code  to  be  used  with  other  devices.  The  code  can  also  be 
easily  modified  such  that  all  INP  functions  (returns  byte  read 
from  the  input/output  port  device)  are  replaced  with  the  INKEY# 
function  to  use  keyboard  inputs  as  responses. 

The  source  code  of  the  tests  present  video  images  on  the 
screen  in  either  Screen  Mode  0  (text  mode) ,  designed  for  a  40  by 
25  text  format  or  in  Screen  Mode  1,  designed  for  320  by  200  pixel 
medium  resolution  graphics.  All  screens  are  cleared  and  Screen 
Mode  0  is  reinstated  at  the  termination  of  each  test.  The  video 
aspects  of  the  source  code  were  designed  to  operate  on  either  a 
Zenith  150  PC  computer  or  on  a  system  using  the  Sigma  Designs 
Color  400  SH  512  video  adapter.  Other  video  display  systems  can 
be  used  by  supplying  the  appropriate  values  for  the  hardware 
constants  ('CUT' ,  'BLANK',  and  'UNBLANK’)  near  the  beginning  of 
each  test  code  listing. 

An  attempt  was  made  to  optimize  the  code  to  operate  as 
rapidly  and  efficiently  as  possible,  particularly  in  regards  to 
performance  relevant  variables.  Special  emphasis  was  placed  on 
obtaining  the  most  rapid  time  measures  following  the  occurrence 
of  each  recorded  response  and  with  the  relationship  of  responses 
to  video  presen ta t i ons . 

For  the  tests  to  operate  at  the  most  desirable  sreed  for 
performance  measurement,  they  should  be  compiled  for  speed 
enhancement,  where  ever  possible.  The  authors  compile  the  source 
code  of  each  of  the  individual  NMRI-PAB  programs  using  three 
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arguments  to  the  QuickBASIC  compile  command:  /q  produces  a 
program  that  runs  as  quickly  as  possible;  /g  allows  the  video 
screen  to  be  updated  as  fast  as  possible;  and  /I  loads  the  user 
library  file.  The  Source  code  for  the  NMRI-PAB  is  designed  to 
use  the  QuickBASIC  supplied  user  library,  USERLIB,  which  must  be 
available  to  the  individual  programs  at  run-time. 
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Executive  Program 
EXEC . BAS 
07-29  88 


REM  *  INCLUDE:  ’COMMON. BAS’ 

ADDRESS= J 808 :  OUT  ADDRESS + 1 5 , 1 46  '  Setup  Techmar  board 
OUT  ADDRESS >14,0  ’  Turn  all  leds  off  on  panel 
DIM  TN* ( 10) 

NXT=1: SCREEN  2 : SCREEN  0 : COLOR  7,1:CLS 
LOCATE  5, 37: PRINT  ’ NMRT  PAB ‘ 

LOCATE  6 , 36 : PRINT  ‘Written  by:* 

LOCATE  7 ,29: PRINT  "JR.  Thomas  and  J.  Schrot" 

LOCATE  8 ,25: PRINT  "Environmental  Medicine  Department" 

LOCATE  9,26:PRINT  "Naval  Medical  Research  Institute" 

LOCATE  10.31 .PRINT  "Bethesda,  MD .  20814" 

PRINT : PR I  NT : PRINT 

INPUT  "Enter  subject's  name:  ',SN$ 

PRINT 

INPUT  "Enter  date  (DD  MM-YY):  ",CD* 

PRINT 

INPUT  "Enter  file  name  (dr i ve : f i I ename ) :  ",F$ 

PRINT 

INPUT  "Enter  random  number  seed  (32768  to  32767) : 

RANDNUMB 

RANDOMIZE (RANDNUMB) 

PRINT 

1190  INPUT  ‘Enter  repeated  acquisition  sequence  number  (1  to  24) 
" . SEQNUM 

IF  SEQNUM  <  1  OR  SEQNUM  >  24  THEN  1190 

PR  I  NT : PR  I  NT 

PRINT  "The  standard  test  sequence  is  Numerical  Memory, 
Pattern  Co  mp  arisen, 

PRINT  "Grammatical  Reasoning,  Matching  to-Sample , 

Visual  Scanning" 

PRINT  "Manikin,  Repeated  Acquisition  and  Stroop." 

PRINT 

INPUT  "Do  you  wish  to  run  the  standard  sequence7  (Y  or  N) 

"  ,  SS* 

IF  SS*="N"  OR  SS$ - " n '  THEN  1320 

TS  (  I  )  "  N1JMPAN  "  :  T*  ( 2 )  "  PATPAN "  :  T*  ( 3 )  =  "  GRAMPAN  " 

T* ( 4 )  " MATP AN "  : T* ( 5)  =  *  VI  SPAN "  : T* ( 6 ) = " MANPAN " 

T* (7)  " RAP AN"  : T* (8)  =  *  STROFPAN "  : N=8 

GOTO  1690 

1320  ’  Menu  to  construct  test  sequence 

CLS 


/ 


1335  LOCATE  10,5: INPUT  'Type  number  of  teats  to  be  administered 
(  1  to  8  )  :  '  ,  N 

IF  N< 1  OR  N> 8  THEN  1335 
LOCATE  10, 5: PRINT  ' 

LOCATE  5 ,30: PRINT  'TEST  SEQUENCE  SELECTION' 

LOCATE  7, 34: PRINT  'TESTS  AVAILABLE' 

PRINT 

LOCATE  9, 22 .PRINT  'TEST  NAME' 

LOCATE  9, 55: PRINT  'FILE  NAME' 

PRINT 


PRINT  ' 

GRAMPAN' 

1  . 

Grammatical  Reasoning 

PRINT  ' 

VISPAN' 

2  . 

Visual  Scanning 

PRINT  ' 

MANP AN' 

3  . 

Manikin 

PRINT  ' 

MATPAN' 

4  . 

Matching- to -Samp  1 e 

PRINT  ‘ 

PA* PAN ' 

5. 

Pattern  Comparison 

PRINT  ' 

RAPAN' 

6  . 

Repeated  Acquisition 

PRINT  ' 

NUMPAN - 

7  . 

Numerical  Memory 

PRINT  * 

8  . 

S  troop 

STROPPAN' 

TNS(l) 1st' :TN*(2) ='2nd' :TN*(3) -'3rd' : TN* ( 4 ) ='4th' : 

TN*  ( 5 )  -'5th'  :TN*  (6) = '6th'  :TN* (7)  =  '7  th  '  :  TN*  (B)  -  "8th  ' 
FOR  J=l  TO  N 

LOCATE  20, 5: PRINT  ' 

LOCATE  20, 5: PRINT  'Enter  the  number  of  the 
PRINT  TN*(J) 

LOCATE  20,33: INPUT  ‘test:  *,TN 
GOSUB  1620 
NEXT  J 

’  Chain  tests 

1590  COLOR  7 , 0 : CLS : LOCATE  1,1,0 
CHAIN  TS(NXT) 

1620  ’  Assign  tests  in  sequence 

IF  TN  1  THEN  T* ( J )  -  ' GRAMPAN  *  : GOTO  1710 
IK  TN  -  2  THEN  T*  ( .1 )  '  V I  SPAN  *  :  GOTO  1710 

IF  TN  3  THEN  T* ( J ) = ' MANP AN '  : GOTO  1710 

IF  TN=  4  THEN  T* ( J ) - ' MATPAN  '  : GOTO  1710 
IF  TN  5  THEN  T*  (.!)-'  PATPAN '  :  GOTO  1710 

IF  TN  6  THEN  T* ( J ) = ' RAPAN *  : GOTO  1710 

IF  TN  7  THEN  TS  ( .1)  -  '  NUMPAN  '  :  GOTO  17  10 
IF  TN -  8  THEN  T*  ( J )  -  ' STROP PAN ' 

1710  RETURN 
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Matching- to -Sample 
MATPAN. BAS 
07-28-88 


1210 

1240 

1270 

1  300 


1  4  30 


REM  * INCLUDE:  'COMMON. BAS' 

’ CRT=986 :  BLANK =0 :  UNBLANK = 1 :  OUT  984,2  *  Z150 

CRT=728 :  BLANK=7 :  UNBLANK = 1 5  '  Color  400-SH 

ADDRESS=1808  ’  Techmar  board 

OUT  ADDRESS+ 15 , 146  ’  Ports  A  +  B  input,  C  output 
OUT  ADDRESS+ 14,0  ’  All  leds  off 

DIM  SETREG7.  (7)  ,  GETREGX  (7) 

AX11EG%  =  0:  CXREG%=2:  DXREG%=3 

LOCATE  1,1,0 

DIM  A(20)  ,  D  (  2  0 )  ,  CORRECT  (  100)  ,  ERRORS  (  100)  .DAT  (31 ,32)  ,ZSEC(8) 

Z  =  7  : GOSUB  2650 
Z -  8 : GOSUB  2650 

IF  ZSEC (8)  <  ZSEC ( 7 ) +14  THEN  1210 

COLOR  7 ,4 : CLS 
Z  8: GOSUB  2650 

IF  ZSEC ( 8 )  <  ZSEC ( 7 ) +16  THEN  1240 

COLOR  7, 6: CLS 
Z=8:G0SUB  2650 

IF  ZSEC ( 8 )  <  ZSEC ( 7 ) + 18  THEN  1270 

COLOR  7, 2: CLS 
Z;8: GOSUB  2650 

IF  ZSEC (8)  <  ZSEC (7) +20  THEN  1300 

COLOR  7,0: CLS 

OUT  ADDRESS +14,4  '  Panel  led  on 

TRIALS  -  30 : TOTCO : TOTE- 0 


’Get  start  of  session  time 
7.-  1  :  GOSUB  2650 
FOR  T  1  TO  TRIALS 

’Check  for  end  of  session  ^ 

IF  T  1  THEN  GOTO  1430 
Z  2: GOSUB  2650 

IF  ZSEC (2)  >  -  ZSEC (  1 )  +  300  THEN  NTC  T  1:  GOTO  1920 

CLS 

S  - 1  NT ( RND*  2 )  +  1  # 

’  Generate  order  of  16  cells  in  sample 
and  correct  matrix 
FOR  J  =  1  TO  16 

A  I  NT (RND* 10)  +  1 
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IF  A  >  5  THEN  A= I  ELSE  A=2 
A ( J ) =A :  D ( J) = A :  DAT (T ,  ( J+ 14) ) = A 
NEXT  J 

’  Change  one  cell  in  the  S-  comparison  matrix 
A= I NT ( RND  *  1 6 )  +  1 

IF  D ( A) = 1  THEN  D(A)=2  ELSE  D(A)=1 
DAT (T , 3  1 ) = A 

CLS :  SCREEN  1:  COLOR  0,0 
'  Draw  sample  stimulus 

1580  RS=INP (ADDRESS* 13)  :  IF  RS0255  THEN  1580 

OUT  CRT, BLANK 

GOSUB  2130:  GOSUB  2360  '  Draw  sample  stimulus 
OUT  CRT,  UNBLANK 

1620  RS' INP (ADDRESS* 13) :  IF  RS=255  THEN  1630  ELSE  1620 

1630  K- 0 : GOSUB  2570  ’  Get  initial  IRT  value 

Z- 3 : GOSUB  2650 

1650  Z  =  4  : RS=INP (ADDRESS* 13) : IF  RS=239  THEN  1690 

GOSUB  2650:  IF  ZSEC(4)  >=  ZSEC(3)  +  60  THEN  1690 
Z" 2: GOSUB  2650: IF  ZSEC (2)  >-  ZSEC(l)+300  THEN  NTC=T- 1 

GOTO  1920 
GOTO  1650 

1690  K=4:G0SUB  2570  '  Store  time  when  screen  is  advanced 

OUT  CRT. BLANK  '  Clear  screen 

'  Draw  comparison  stimuli 
1730  RS- INP(ADDRESS* 13) : IF  RS0255  THEN  1730 

GOSUB  2180  ’  Draw  two  comparison  stimuli 
OUT  CRT. UNBLANK 

1760  RS  = INP (ADDRESS* 13) : IF  RS=255  THEN  1770  ELSE  1760 

1770  Z  2  :  RS  1  NP  (  ADDRESS  *•  13) 

iF  RS  247  Ok  RS  251  THEN  GOTO  1810  ELSE  GOSUB  2650 
IF  ZSEC ( 2 )  )-  ZSEC ( 1 )  +  300  THEN  NTC  T -  1  : GOTO  1920 

GOTO  1770 

1810  K  8:  GOSUB  2570 

IF  S-l  AND  RS  =  247  THEN 

CORRECT ( T ) -CORRECT (T) + 1 : DAT (T , 13) = 1 :TOTC=TOTC+ 1 
IF  S  I  AND  RS -251  THEN 

ERRORS (T)  ERRORS (T)  +  1 : DAT ( T , 13) -  2 : TOTE -TOTE + 1 
IF  S  =  2  AND  RS-251  THEN 

CORRECT (T)  CORRECT (T) *  1 : DAT (T , 13) = 1 : TOTC  TOTC ^ 1 
IF  S  2  AND  RS  247  THEN 

ERRORS ( T ) -ERRORS(T)  +  1  : DAT (T ,  13) =  2 : T0TE  =  T0TE+ 1 

NEXT  T 
NTC=TRI ALS 

1920  SCREEN  2:  SCREEN  0: COLOR  7 , 0 : CLS : LOCATE  1,1,0 
COLUMNS  31 

OPEN  'O* , 1 ,F*t ‘ .MAT’ 

PRINT# I , SN* ; ’ , ’CD$ 

PRINT# 1 , NTC .COLUMNS 


FOR  TR= 1  TO  NTC 

PRINT# 1 .DAT (TR, 1) ; DAT (TR , 2) ; DAT (TR ,3) ; 

DAT (TR , 4) ; DAT (TR, 5) ; DAT (TR , 6) ; 

PRINT# 1 , DAT  CTR , 7)  ; DAT (TR , 8 )  ; DAT ( TR , 9 )  ; 

DAT  (TR  ,  10)  ;  DAT  (TR  ,  H)  ;  DAT  (TR ,  12)  ; 

PRINT# 1 .DAT (TR. 13) ; DAT (TR , 14) ;DAT(TR. 15) ; 

DAT(TR. 16) ; DAT (TR , 17) ; DAT ( TR , 18) ; 

PRINT# 1 , DAT (TR , 19) ;DAT(TR,20) ; 

PRINT# 1 , DAT (TR ,21) ;DAT(TR,22) ;DAT(TR,23) 
DAT (TR , 24) ;DAT(TR,25) ;DAT(TR,26) ; 

PRINT#! , DAT (TR , 27 ) ;DAT(TR,28) ;DAT(TR,29) ; 
DAT(TR,30) ;DAT(TR,31) 

NEXT  TR:  CLOSE 
NXT=NXT+ 1 

IF  NXT>N  THEN  PRINT  ‘END  OF  SESSION': 

OUT  ADDRESS+ 14,0: END : LOCATE  1,1,1 
LOCATE  1,1,0 
CHArF  T*(NXT) 

Draw  sample  stimulus 
2130  CLS 

Y=80 : X= 125 
GOSUB  2270 
RETURN 

Draw  two  comparison  stimuli 
2180  CLS 
X=  65 

GOSUB  2270:  IF  S=1  THEN  GOSUB  2360  ELSE  GOSUB  2470 
X-  185 

GOSUB  2270:  IF  S-l  THEN  GOSUB  2470  ELSE  GOSUB  2360 

TF  5--1  THEN  DAT  (T,  14)  1  ELSE  DAT(T,14)=2 

RETURN 

Draw  ma  tri x 

2270  FOR  1  -  Y  TO  Y  +  40  STEP  10 

LINE  (X,I)-(X»60,I),3 
NEXT  I 

FOR  I  -  X  TO  X  +  60  STEP  15 
LINE  (I ,Y) - (I , Y  *  4  0 )  .3 
NEXT  I 
RETURN 

Paint  Correct  Matrix 
2360  J^l 

FOR  E-0  TO  30  STEP  10 

FOR  B  0  TO  45  STEP  15 
C3 - A ( J ) 

PAINT  ( X+ 5  •  B  ,  Y  ♦  5  *E) ,C3,3 
J-J4  1 
NEXT  B 
NEXT  E 
RETURN 


> 


i 


I 

’  Paint  Incorrect  Matrix 
2470  J=1 

FOR  E  =  0  TO  30  STEP  10 

FOR  B=0  TO  45  STEP  15 
|  C3=D ( J) 

PAINT  (X+5+B, Y+5+E) ,C3,3 
J  =  J+1 
NEXT  B 
NEXT  E 
RETURN 

2570  ’  Read  clock  and  store  time  in  array 
SETREGX ( AXREGX) =&H2C00 

CALL  INT86  (&H2 1  ,  VARPTR  (SETREGX  (0)  )  ,  VARPTR  (GETREG'4  (0)  )  ) 
HM-GETREGX (CXREGX) :  SH=GETREGX (DXREGX) 

DAT ( T ,  (K* 1) ) =  HM  \  256:  DAT (T , (K+ 2 ) ) =HM  MOD  256 
DAT (T, (K+3) ) =SH  \  256:  DAT (T , ( K+ 4 ) ) = SH  MOD  256 
RETURN 

2650  *  Convert  Hr:Min:Sec  to  Sec  and  test  for  end 
ZTIME*=TIME* 

ZS  =  VAL (RIGHT# (ZTIME$ , 2)  ) 

ZM- VAL (MID* (ZTIME* ,4,2)  ) 

ZH-VAL (LEFT* (ZTIME* , 2)  ) 

ZM1 -  (ZH  *  60)  +  ZM 

ZSEC (Z) =  (ZM1*  60)  ♦  ZS 

RETURN 


t 
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’  Stroop 

’  STROPPAN . BAS 

*  07-28-88 

REM  ^INCLUDE: 'COMMON. BAS’ 

ADDRESS- 1808 :  OUT  ADDRESS+ 15 , 146 
OUT  ADDRESS +14,0 

SCREEN  2: SCREEN  0 : COLOR  7 , 0 : CLS : LOCATE  1,1,0 

*  CRT-986 :  BLANK  =  0 :  UNBLANK= 1 :  OUT  984,2  ’  Z150 

CRT  728:  BLANK=7 ;  UNBLANK= 1 5  ’  Color  400 

DIM  SETREGX  (7)  ,  GETREGX  (7) 

AXREG%=0 :  CXREG%=2:  DXREG%=3 

DTM  ERRORS ( 100) , CORRECT ( 100) ,DAT(63, 12) ,ZSEC(6) , 

A  ( 1 0 )  , DIST (63) 

S -  5 : GOSUB  2650 
TRI ALS=45 

FOR  1  1  TO  TRIALS 

1140  B “ I NT ( RND  *  9 )  +  1 

IF  A ( B )  >4  GOTO  1 140 

DIST(I) “B 
A  ( B )  -  A  ( B  )  +  1 
NEXT  1 

1190  S  6 :GOSUB  2650 

IF  ZSEC ( 6 )  <  ZSEC ( 5 ) + 1 4  THEN  1190 
COLOR  7,4: CLS  ’  Screen  Red 
1220  S -6 : GOSUB  2650 

IF  ZSEC (6)  <  ZSEC ( 5 ) + 16  THEN  1220 

COLOR  7, 6 :CLS  '  Screen  Yellow 
1250  S  =  6 : GOSUB  2650 

IF  ZSEC ( 6 )  <  ZSEC ( 5 ) + 1 8  THEN  1250 

COLOR  7,2: CLS  ’  Screen  Green 
I 2R0  S -  6 : GOSUB  2650 

IF  ZSEC ( 6 )  <  ZSEC ( 5 ) ♦ 20  THEN  1280 

OUT  ADDRESS+ 14,4 

’  TEST=1:  Respond  to  words  with  colors  irrelevant 
'  TEST=2:  Respond  to  colors  with  words  irrelevant 
’  TEST3:  Respond  to  words  only  (reaction  time  test 
-  wo rds  all  in  wh i t e ) 
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TEST=2  ’  Respond  to  colors 
GOSUB  2040 

COLOR  7,0: CLS 
SCREEN  1 :  COLOR  0 , 0 

S= 1 :  GOSUB  2650  ’  Get  start  of  session  time 

FOR  T=  1  TO  TRIALS 

’Check  for  end  of  session 
S=2: GOSUB  2650 

IF  ZSEC ( 2 )  >  =  ZSEC(l)  +  180  THEN  NTC  =  T-l:GOTO  1910 

IF  DIST (T) = 1  THEN  X=2 : Y=0 : STIMULUS^ 1 : 

WORD  - 1 : GOTO  1600  ’ RR 

IF  DI ST (T) =2  THEN  X=2 : Y=0 : STIMULUS= 1 : 

WORD =2 : GOTO  1600  ' RG 

IF  DIST(T)  3  THEN  X=2 : Y=0 : STIMULUS= 1 : 

WORD  =  3 : GOTO  1600  ’ RB 

IF  DIST (T) =4  THEN  X= 1 : Y=0 : STIMULUS=2 : 

WORD= 1 : GOTO  1600  ’GR 
IF  D I  ST  (T)  --5  THEN  X=  1  :  Y=0  :  STIMULUS  =  2  : 

WORD^  2 : GOTO  1600  * GG 

IF  DIST  (T)  r-6  THEN  X= 1 : Y  =  0 : STIMULUS  =  2  : 

WORD=3 : GOTO  1600  * GB 

IF  DIST (T) -7  THEN  X= 1 : Y~  1  : STIMULUS=3 : 

WORD= 1 : GOTO  1600  ’ BR 

IF  DIST (T) “0  THEN  X= 1 : Y= 1 : STIMULUS=3 : 

WORD  =  2 : GOTO  1600  ’ BG 

IF  DT  ST (T) =9  THEN  X= 1 : Y= 1 : STIMULUS  =  3 : 

WORD =  3 : GOTO  1600  ’ BB 

1600  IF  TEST  = 1  OR  TEST=3  THEN  STIMULUS  =  WORD 

DAT (T , 12) -WORD 

IF  TEST=3  THEN  Y  -  1  :  X=3  ’  (All  words  are  white) 

1640  RS- I NP ( ADDRESS +  13)  :  IF  RS0255  THEN  1640 

ON  WORD  GOSUB  2190,2290,2400 

1660  RS  -  I NP ( ADDRESS+ 1 3 )  :  IF  RS  =  255  THEN  1690  ELSE  1660 

’  Key  1-red  Key-2-green  Key-4=blue 
1690  K^O: GOSUB  2610 

1700  S  =  2 :  RS  =  I NP ( ADDRESS  + 13) 

IF  RS  =  255  THEN  GOSUB  2650  ELSE  GOTO  1740 
IF  ZSEC (2)  >=  ZSEC ( 1 )  +  1  80  THEN  NTC  =  T-1:G0T0  1910 

GOTO  1700 

1740  K  =  4 : GOSUB  2610 

IF  RS0247  AND  RS0239  AND  RS0251  THEN  GOTO  1700 

IF  RS“ 247  THEN  RS=1 

IF  RS=  239  THEN  RS=2 

IF  RS -251  THEN  RS  3 

ANSWERERS:  DAT (T , 1 0 )= ANSWER 

IF  ANSWER-4  THEN  ANSWER=3 

IF  ST  I MULUS  =  4  THEN  STIMULUS-3 

DAT (T , 1 1 ) = STIMULUS 

IF  STIMULUS-ANSWER=0  THEN  GOTO  1830 
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ERRORS (T)=ERRORS(T)  +  1  :  DAT (T, 9) =2 
GOTO  1840 

1830  CORRECT (T) =CORRECT(T)  +  1:  DAT(T,9)=1 

1840  CLS :  OUT  CRT, BLANK 

NEXT  T 

NTC=TRI ALS 

1910  SCREEN  2: SCREEN  0 : COLOR  7 , 0 : CLS : LOCATE  1,1,0 
OUT  ADDRESS + 14,0 
COLUMNS = 12 
OPEN  'O' , 1 ,FS* ’ . STP ' 

PRINT# 1 ,SN* ; ' , ' CD* 

PRT NT# l , NTC , COLUMNS , TEST 
FOR  TR  = 1  TO  NTC 

PRINT# 1 , DAT (TR , 1) ; DAT (TR , 2 ) ; DAT ( TR , 3 ) ; 

DAT (TR , 4 ) ; DAT (TR , 5) ; DAT (TR , 6) ; 

PRINT# 1 , DAT ( TR , 7 )  ; DAT (TR , 8)  ; DAT (TR ,9)  ; 

DAT ( TR , 10) ; DAT (TR , 11) ; DAT (TR , 12) 

NEXT  TR:  CLOSE 
NXT - NXT+ 1 

IF  NXT> N  THEN  PRINT  'END  OF  SESSION' : END : LOCATE  1,1,1 
CHAIN  TS(NXT) 

'  Letters 

2040  R*  --  'R10U10R10F10R10H10R10U15L40D2  5BM 

<  !0,  1  5R20U5L20D5BM*  50 , 15' 

E*  ' R40U5L30U5R30U5L30U5R30U5L40D25BM+60 , 0  " 

D*  ‘ R35E51J l 5H5L35D25BM+ 1 0 ,  5R 1 8E3U9H3L 1 8D 1 4BM+ 50 , 6 ' 
L*  --  '  R40U5L30U20L10D25BM+60 ,0' 

04-  '  R4  0U15L20D5R10D5L20(J15R30U5L40D25BM«  60 ,0' 

B*  =  ' R35E5U5H3E2U5H5L35D25BM 

•  10,  5R20E 1  U3H 1 1.20D5BM 

•  0 ,  J  0R20E 1 U3H 1L20D5BM*50, 15' 

If*  '  R'l  0U25L  l  OD20L20U20L  2  0D25BM+60 , 0  ' 

N*  -  'R10U20F20R10U25L10D15H15Li5D25BMf50,0' 

RED*  R*  +  E*  *  D* 

GREEN*  -  G*  ♦  R*-t  E*  +  E*  +  N* 

BLUE*- B* • L*  fU*  +  E* 

RETURN 

’  Draw  Red 

2190  CLS:  OUT  CRT, BLANK 
COLOR  0,Y 
PSET  (70, 120)  ,  X 
DRAW  RED* 

PAINT  (73, 112), X:  PAINT  (135, 112), X:  PAINT  (193, 112), X 

OUT  CRT  ,  UNBL.ANK 

RETURN 


’  Draw  Green 
2290  CLS:  OUT  CRT, BLANK 
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2380 

2400 


2610 


2650 


I 

COLOR  0 , Y 
PSET  (13 , 120)  .X 
DRAW  GREEN* 

PAINT  (15,110) ,X:  PAINT  (75, 110), X:  PAINT  (135,110) ,X 
PAINT  (196,110) ,X:  PAINT  (258, 110), X 

OUT  CRT , UNBLANK  j 

RETURN 


’  Draw  Blue 

CLS :  OUT  CRT , BLANK 

COLOR  0 , Y 

PSET  (48 , 120)  ,X 

DRAW  BLUE* 

PAINT  (50, 1 10)  ,X:PAINT  (112, 110)  ,X 
PAINT  ( 173 , 1 10)  ,X:PAINT  (233,110  ),X 
OUT  CRT. UNBLANK 
RETURN 


I 

’  Read  clock  and  store  time  in  array 
SETREGX ( AXREG% ) =&H2C00 

CALL  INT86 (&H21 , VARPTR (SETREGX (0 ) ) , VARPTR (GETREGZ (0)  )  ) 

HM=GETREG/S  (CXREGX)  :  SH=GETREG% (DXREGZ) 

DAT (T,(K+1)) =HM  \  256:  DAT (T , (K+2) ) =HM  MOD  256 

DAT  ( T  ,  ( X  •*  3 )  )  '  SH  \  256:  DAT (T , (K+ 4 ) ) =SH  MOD  256  f 

RETURN 

’  Convert  Hr:Min:Sec  to  Sec  and  test  for  end 
ZTIME*~TIME* 

ZS  =  VAL (RIGHT* (ZTIME* , 2) ) 

ZM ; VAL (MID* (ZTIME* ,4,2))  ^ 

ZH- VAL ( LEFT* (ZTIME* , 2)  ) 

ZM1 -  (ZH  »  60)  +  ZM 

ZSEC(S)  = (ZM1  *  60)  +  ZS 

RETURN 


l 


» 
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’  Grammatical  Reasoning 

’  GRAMPAN . BAS 

’  07-28-88 

’  Generation  of  letter  pairs  and  letter  statements  modified 
from  code  by  R.  Irons  and  M.  Krause,  NBDL 
REM  * INCLUDE:  ’ COMMON . BAS ’ 

ADDRESS^ 1808 :  OUT  ADDRESS+ 1 5 . 1 46 
OUT  ADDRESS +14,0 

SCREEN  2: SCREEN  0:CLS: LOCATE  1,1,0 

'CRT-986 : BLANK=0 : UNBLANK= 1 : OUT  984,2  ’ Z-150 

CRT=728 : BLANK-7 : UNBLANK= 1 5  ’COLOR  400  SH 

DIM  SETREG% (7) , GETREGX ( 7 ) 

AXREGZ-  0 : CXREGX- 2 : DXREG%-3 


DIM  NT(33) ,Q(33) ,UC(33) ,VC(33) .DAT (33, 1 1) ,ZSEC(6) 
DIM  F*(2) ,C® (2) ,D®(2) 

DIM  IJ*( 2)  ,E*<2)  ,F*(2) 

DIM  G*<2) , H* (2) , V® (2) 


TT-0  ’ 

State  me  n  t 

true  and 

TF-0  ’ 

Statement 

true  and 

FF-  0  ' 

S I.  a  t.  e  me  n  t 

false  and 

FT  0  ’ 

State  me  n  t 

false  and 

A®  .-’A* 

:  B®  ‘  B  * 

V*  (  !  ) 

*  ' 

U®  (  1  )  =• 

"  * 

V® ( 2 ) ^ 

'S' 

U® (2)  - 

'  DOES ' 

E*  (  1  ) 

*  * 

E® (2)  - 

'  NOT ' 

E*  (  1  ) 

'  PRECEDE* 

F#  (2) = 

'  FOLLOW 

G®  (  1 )  - 

"  " 

G®  ( 2 )  - 

'  E' 

H*  (  1  )  = 

*  * 

H® ( 2 ) = 

'D  BY' 

P*  (  1 ) 

'  +  A*  +  *  ' 

+  B*  +  *  * 

P«  ( 2 ) 

'  ' +  B®  + '  ' 

+  A®+  ’  * 

C*  (  1 )  ^ 

'  '  +A* 

C® (2) = 

'  '  +B® 

D*  (  1  )  - 

*  “ 

D*  (  2 )  - 

'  IS' 

TRIALS 

32 

answer 

answer 

answer 

answer 


true 
false 
f  alse 
true 


i 
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1581 

1582 

1583 

1584 


1690 


1  850 


I 


LOCATE  7,10,0  1  Turn  off  cursor 
GOSUB  2260 
FOR  X=1  TO  32 

IF  Q (X) =2  OR  Q (X) =3  OR  Q(X)=6  OR  Q(X)=7 

OR  Q ( X) =10  OR  Q (X) = 1 1  OR  Q(X)=1 4  OR  Q(X)=15  THEN 
UC(X)  =1 

IF  Q (X) =4  OR  Q(X)=5  OR  Q(X)=6 

OR  Q (X) =7  OR  Q  ( X) =12  OR  Q(X)=13 
OR  Q (X)  =  1 4  OR  Q ( X) =15  THEN  VC(X)  =  1 

NEXT  X 

’TIME  IT I 

S=5 : GOSUB  2700 

S=6: GOSUB  2700 

IF  ZSEC ( 6 )  <  ZSEC ( 5 ) +14  THEN  1581 

COLOR  7,4: CLS  ’RED  SCREEN 
S=6 : GOSUB  2700 

IF  ZSEC (6)  <  ZSEC (5) +16  THEN  1582 

COLOR  7, 14: CLS  ’  YELLOW  SCREEN 
S=6 : GOSUB  2700 

IF  ZSEC (6)  <  ZSEC (5) +18  THEN  1583 

COLOR  7, 2: CLS  ’GREEN  SCREEN 
S  =6 : GOSUB  2700 

TF  ZSE 0(6)  <  ZSEC(5)f20  THEN  1584 

COLOR  7,1:  OUT  ADDRESS +14, 4 
1  =  0 

S=l:GOSUB  2700  'Get  Start  of  session  time 

FOR  RN=1  TO  TRIALS 

'Check  for  end  of  session 
IF  RN  1  THEN  1690 
5= 2: GOSUB  2700 

IF  ZSEC  (2)  >  =  ZSEC ( 1 )  ♦  180  THEN  NTC  RN-1:  GOTO  2130 

X  NT (RN) 

IF  X> 1 6  THEN  1=2 
IF  X<  17  THEN  1=  1 
'  Print  phrase 
CLS 

GOSUB  2510 


LOCATE 
’ Store 

10,24 
type  of 

state  me  n  t  in 

data  array 

IF  K  1 

AND  L  l 

AND 

M=  2 

THEN 

DAT ( RN , 10)1 : GOTO 

1850 

IF  K  ~  1 

ANI)  L  1 

AND 

M-  1 

THEN 

DAT ( RN , 10)  2: GOTO 

1850 

T  F  K  2 

AND  I.  -  1 

AND 

M=  2 

THEN 

DAT ( RN , 10) =3: GOTO 

1850 

IF  K  2 

AND  L= 1 

AND 

M=  1 

THEN 

DAT (RN , 10) =4 : GOTO 

1850 

IF  K  1 

AND  L  2 

AND 

2 

THEN 

DAT (RN , 10) =5 : GOTO 

1850 

I F  K  1 

AND  L  =  2 

AND 

1 

THEN 

DAT ( RN , 10) =6 : GOTO 

1850 

IF  K  2 

AND  I.  2 

AND 

M=  2 

THEN 

DAT (RN , 10) =7 : GOTO 

1850 

IF  K  2 

AND  L  2 

AND 

M=  1 

THEN 

DAT (RN , 10) =8 

’  St.orp 

type  of 

1 e  t  ter 

pairs 

in  data  array 

1 F  J  1 

AND  I = 1 

THEN 

f  DAT ( RN , 

11)=1  .GOTO  1900 

» 


ft 


I 


ft 


IJ 


•J 


» 


u 


18 


1900 


2012 

2013 


2  130 


2  2  6  0 
2200 

2330 

2350 


IF 

J=1 

AND 

1=2 

THEN 

DAT (RN , 11) =2: GOTO 

1900 

IF 

J=  2 

AND 

1=  1 

THEN 

DAT (RN , 11) =3: GOTO 

1900 

IF 

J  =  2 

AND 

1=2 

THEN 

DAT (RN, 1 1) =4 

PRINT  * (J) ;D* (K) ; U* (XL) ; E* (L) ; F# (M) ; V* (LK) ; 
G*(KM)  ;H*(K)  ;  C*(J1);*  '  ;  P*  ( I ) 


0  =  0: GOSUB  2660 


’  Get  response  and  put  in  counter  bin  for  right/wrong 
S0=0 : S 1 =0 : S=2 

IF  ZSEC(2)  > - ZSEC ( 1 )  +  180  THEN  NTC = RN- 1 : GOTO  2130 

RS  INP  ( ADDRESS+ 1 3)  :  IF  RS0255  THEN  2012 
RS  INP ( ADDRESS + 13) 

IF  RS0247  AND  RS0  251  THEN  2013 
0-4 : GOSUB  2660 
IF  RS "247  THEN  S0=1 
IF  RS- 251  THEN  Sl  =  l 

IF  BO  1  AND  SO-1  THEN  TT  =  TT+ 1 : DAT (RN ,9)  -  1 

IF  B  1  -  1  ANI)  Sl  =  l  THEN  FF"  FF  ♦  1  :  DAT  ( RN  ,91-1 

IF  BO  1  AND  Sl  =  l.  THEN  TF  -  TF  +  1  :  DAT  ( RN  ,  9 )  =  2 

IF  B  1  1  AND  S0=1  THEN  FT=  FT  *•  1  :  DAT  (  RN  ,  9 )  -  2 

NEXT  RN 

NTC  TRIALS 

SCREEN  2: SCREEN  0: COLOR  7 , 0 : CLS : LOCATE  1,1.0 

COLUMNS  11:  OUT  ADDRESS +  1  4  ,  O 

COLOR  7,0: CLS 

OPEN  'O*  ,  1  ,F*  *  '  .  GRR' 

PR  1  NT# 1  ,SN$,  '  ,  ‘  ;CD$ 

PR  T  NT# 1  , NTC, COLUMNS 
FOR  TR  1  TO  NTC 

PRINT# 1  , DAT (TR,  1)  ; DAT ( TR , 2 )  ; DAT ( TR , 3  )  ; 

DAT ( TR , 4 )  ; D  AT ( T  R , 5 )  ; DAT ( TR , 6 )  ; 

DAT (TR , 7 )  ; DAT (TR , 8 )  ; DAT ( TR , 9  )  ; 

DAT (TR ,10); DAT (TR ,11) 

NEXT  TR: CLOSE 
NXT  MXT* I 

IK  NXT  >  N  THEN  PRINT  'END  OF  SESS ION END : LOCATE  1,1,1 
CHAIN  TS(NXT) 


'  Routine  for  picking  up  random  Q(l)  through  Q(32) 
FOR  X  1  TO  16 

Q(X)  I  NT (  16*  RND)  *  1 
IF  X  1  THEN  2330 
FOR  N I  1  TO  X  1 

IF  0 ( X )  Q ( N I )  THEN  22R0 
NEXT  NI 
NEXT  X 

FOR  XI7  TO  32 

Q(X)  t  NT ( 1 6  *  RND )  •  1 
IF  X  17  THEN  2400 
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FOR  NI =17  TO  X-l 

IF  Q  (X) =Q ( NI )  THEN  2350 
NEXT  NI 

2400  NEXT  X 

’  Randomize  NT 
FOR  X=1  TO  32 

2430  NT ( X ) = I NT (32*  RND )  +  1 

IF  X=1  THEN  2480 
FOR  NI = 1  TO  X-l 

IF  NT ( X ) -  NT ( N I )  THEN  2430 
NEXT  NI 

2480  NEXT  X 
RETURN 

2510  ’  Set  pointers  for  phrases 

FOR  J  -  1  TO  2 

FOR  K- 1  TO  2 

FOR  L- 1  TO  2 

FOR  M- 1  TO  2 

IF  Q(X) = ( 8  «  J  ) ♦ (  4  »  K ) f (  2  *  L ) +M- 14  THEN  2550 
NEXT  M 
NEXT  L 
NEXT  K 
NEXT  J 

2550  IF  K  *  M-  4  THEN  KM=2  ELSE  KM= 1 
IF  J  -  1  THEN  J I =  2  ELSE  Jl^l 
KL-  1  :  LK  -  1 

IF  K  1  AND  L  =  2  THEN  KL r  2 
IF  L+K-2  THEN  LK  2 
SUM- I ♦ J  +  K*  L  *M 
BO  -  0 :  B  1  =  0 

IF  SUM-5  OR  SUM- 7  OR  SUM=9  THEN  BO  1 
IF  SUM- 6  OR  SUM=  8  OR  SUM=10  THEN  Bl^l 
RETURN 

2660  ’Read  clock  and  store  time  in  array 
SKTREGZ (AXREGX) =&H2C00 

CALL  I  NT86  ( &H2  1  .  VARPTR  <  SETREGX  (0 )  )  ,  VARPTR  ( GETREG7.  (  0 )  )  ) 

HM  GETREGX (CXREGX ) : SH  GETREGX ( DXREGZ ) 

DAT ( RN , ( O ♦ 1 ) ) - HM  \  256:  DAT ( RN , ( 0+ 2 ) ) - HM  MOD  256 
DAT  (  RN  ,(0'3))-SH  \  256:  DAT  (  RN  ,  (0+  4  )  )  -  SH  MOD  256- 
RETURN 

2700  'Convert  Hr : Min : Sec  to  Sec  and  test  for  end 
ZT I  ME* -TIME* 

ZS -VAL (RIGHT* (ZTIME* , 2)  ) 

ZM-VAL(MII)*  ( ZT  I  ME*  ,  4 ,2)  ) 

ZH - VAL ( LEFT* (ZTIME* .2) ) 

ZMI -  ( ZH  *  60 )  +  ZM 

ZSEC(S)-  (ZMI *60)  f  ZS 
RETURN 
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'  Manikin 

’  MANPAN.BAS 

’  07-29-88 

•  The  code  for  the  figure  outline  is  coutesty  of 

*  D.  Thorne,  WRAIR 

REM  *  INCLUDE:  ’ COMMON . BAS  ’ 

ADDRESS  1808:  OUT  ADDRESS  +  15,  146 

OUT  ADDRESS  +  14.  0 

SCREEN  2 :  SCREEN  0 :  CLS  :  LOCATE  1 ,  1,0 

’ CRT- 986 :  BLANK- 0 :  UNBLANK  = 1  :  OUT  984,2  ’  Z150 

CRT  -  728:  BLANK  -  7:  UNBLANK  15  ’Color  400- SI1 

DIM  SETREGli  (7)  ,  GETREG7.  (7) 

AXREGX  0:  CXREG7.  -  2:  DXREG7.  3 

DIM  DAT ( 35 ,  12).  ZSECC6),  SEQ135),  CORRECT(35),  ERRORS(35) 

’  Random  sequence  for  a  block  of  16  trials 
FOR  I  1  TO  16 

1110  A  [ NT ( HND  *16*1) 

FOR  .1  1  TO  16 

I F  SKQ(J)  -  A  THEN  1110 
NEXT  J 
SEQ(I)  A 
NEXT  T 

S  -  5:  GOSUB  4030 
1130  S  •  6:  GOSUB  4' 30 

TF  ZSEC ( 6 )  <  ZSEC  <  5 )  +  14  THEN  1130  ’  ITi  Change  screen 

co lor  R  Y  G 

COLOR  7,  4:  CLS 

: 160  S  6.  GOSUB  4030 

IF  ZSEC (6)  <  ZSEC (5)  •  16  THEN  1160 

COLOR  7,  6-  CLS 
1)90  S  6.  GOSUB  4030 

IF  ZSEC (6)  <  ZSEC (5)  +  18  THEN  1190 

COLOR  7,  2:  CLS 

1220  S  6:  GOSUB  4030 

r  F  ZSEC (6)  <  ZSEC (5)  *  20  THEN  1220 

TRIALS  32 

OUT  ADDRESS  *  14,  4 

TOTC  0 :  TOTE  0 

COLOR  7,  0:  CLS 

S  1:  GOSUB  4030  ’  Gel  stnrt  of  session  time 


’  Main  Program 
SCREEN  1 :  COLOR  0 ,  0 
FOR  1=1  TO  TRIALS 

S  =  2:  GOSUB  4030 

IF  ZSEC ( 2 )  >=  ZSEC(l)  +  180  THEN  NTC  =1-1:  GOTO  1530 
RS  =  INP (ADDRESS  +  13):  IF  RS  <>  255  THEN  1370 
OUT  CRT.  BLANK 
A  =  SEQ ( ( I  MOD  16)  ♦  1 ) 

ON  A  GOSUB  1680,  1720,  1760,  1800,  1840, 

1880,  1920,  1960,  2000,  2040,  2080,  2120, 

2160,  2200,  2240,  2280 


IF  ANSWER  --  1  THEN  CORRECT  ( I )  =  CORRECT  ( I )  +  1  ELSE 

ERRORS (I)  =  ERRORS (I)  +  1 

IF  ANSWER  1  THEN  TOTC  =  TOTC  +  1  ELSE  TOTE  -  TOTE  +  1 
IF  ANSWER  =  1  THEN  DAT (I,  9)  =  1 :  GOTO  1460 
DAT (I,  9)  =  2 

1460  NEXT  I 

’  End  session 
NTC  =  TRIALS 

1530  SCREEN  2:  SCREEN  0:  COLOR  7,  0:  CLS  :  LOCATE  1,  1,0 

OUT  ADDRESS  f  14,  0 

OPEN  *0' ,  1 ,  FS  ♦  "  . MAN* 

COLUMNS  1 1 

PRINT  # I ,  SNS ;  * , * ;  CD* 

PRINT  *1,  NTC,  COLUMNS 
FOR  TR  l  TO  NTC 

PRINT  #1,  DAT (TR ,  1);  DAT(TR,  2);  DAT ( TR ,  3); 

DAT (TR ,  4);  DAT ( TR ,  5);  DAT (TR ,  6); 

DAT (TR ,  7);  DAT ( TR ,  8);  DAT (TR ,  9); 

DAT (TR ,  10) ;  DAT ( TR ,  1 1 ) 

NEXT  TR:  CLOSE 
NXT  NXT  +  1 

IF  NXT  >  N  THEN  PRINT  'END  OF  SESSION':  END:  LOCATE  1,1,1 
CHAIN  TS(NXT) 

’  Subroutines: 

Body  orient.  View  Outline  Shape-  Shape  1  ocat  i  on  (r/1  ) 


'  Body  Front  Circle  Circle  on  right 
1680  DAT ( I  ,  10)  1:  DAT ( 1  ,  11)  1 

GOSUB  2310:  GOSIJB  2650;  GOSUB  33  10:  GOSUB  3450:  GOSUB  3640 
RETURN 

’  Body  Front  Ci rcle-Circle  on  left 
1720  PATH,  10)  1:  DAT  (  I  ,  II)  2 

GOSUB  2310:  GOSUB  2650:  GOSUB  3310:  GOSUB  3370:  GOSUB  3760 
RETURN 

’  Body  Front  Square  Square  on  right 
1760  DAT ( I .  10)  1:  DAT ( I ,  11)  3 


GOSUB  2310:  GOSUB  2650:  GOSUB  3340:  GOSUB  3370:  GOSUB  3640 
RETURN 

'Body-Front-Square-Square  on  left 
1800  DAT ( I ,  10)  =  1:  DAT ( I .  11)  =4 

GOSUB  2310:  GOSUB  2650:  GOSUB  3340:  GOSUB  3450:  GOSUB  3760 
RETURN 

’  Body-Back-Circle-Circle  on  right 
1040  DAT ( I ,  10)  =  2:  DAT ( I ,  11)  =1 

GOSUB  2310:  GOSUB  3150:  GOSUB  3310:  GOSUB  3450:  GOSUB  3760 
RETURN 

’  Body -Back -Ci rcl e -Ci rcl e  on  left 
1880  DAT (I,  10)  =  2:  DAT ( I ,  11)  =2 

GOSUB  2310:  GOSUB  3150:  GOSUB  3310:  GOSUB  3370:  GOSUB  3640 
RETURN 

’  Body-Back-Square  Square  on  right 
1920  DAT ( I ,  10)  =  2:  DAT ( I ,  11)  =3 

GOSUB  2310:  GOSUB  3150:  GOSUB  3340:  GOSUB  3370:  GOSUB  3760 
RETURN 

’  Body -Back -Square-Square  on  left 
I960  DAT ( I  ,  10)  -  2:  DAT  ( I  ,  11)  ^4 

GOSUB  2310;  GOSUB  3150:  GOSUB  3340:  GOSUB  3450:  GOSUB  3640 
RETURN 

’  Reverse  Re v f ron t - C i rc 1 e - C i rcl e  on  right 
2000  DAT (I,  10)  -  3:  DAT ( I ,  11)  -  1 

GOSUB  2820:  GOSUB  2650:  GOSUB  3310:  GOSUB  3450:  GOSUB  3760 
RETURN 

'  Reverse  Revfront  Circle  Circle  on  left 
2040  DAT  (  I  ,  10)  --  3:  DAT  (  I  ,  11)  =2 

GOSUB  2820:  GOSUB  2650:  GOSUB  3310:  GOSUB  3370:  GOSUB  3640 
RETURN 

’  Reverse  Re v f ron t - Sq uare  Square  on  right 
2080  DAT  (  T  ,  10)  3:  DAT  (  I  .  11)  -=  3 

GOSUB  2820.  GOSUB  2650:  GOSUB  3340:  GOSUB  3370:  GOSUB  3760 
RETURN 

1  Reverse  Revfront  Square  Square  on  left 
2120  DAT (7  10)  3:  DAT ( I ,  11)  =  4 

GOSIJJ  2820:  GOSUB  2650:  GOSUB  3340:  GOSUB  34  50:  GOSUB  3640 
RETURN 

’  Reverse  Back  Circle  Circle  on  right 
7.  I  6 0  DAT  (  I  ,  10)  4  DAT  (  1  ,  11)  1 

GOSUB  2820:  GOSUB  3150:  GOSUB  3310:  GOSUB  3450:  GOSUB  3640 
RETURN 

Reverse  Back  Circle  Circle  on  left 
2700  DAT ( I ,  10)  -  4 :  DAT ( I ,  11)  -  2 

GOSUB  2820:  GOSUB  3150:  GOSUB  3310:  GOSUB  3370:  GOSUB  3760 
RETURN 

’  Reverse  Back  Square  Square  on  right 
2240  DAT ( I ,  10)  4:  DAT ( I ,  11)  3 

GOSUB  2820 :  GOSUB  3150:  GOSUB  3340:  GOSUB  3370:  GOSUB  3640 
RETURN 

’  Reverse  Back  Square  Square  on  left 
27.80  DAT  (  !  ,  10)  4:  DAT  (  I  ,  11)  -  4 
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GOSUB  2820:  GOSUB  3150:  GOSUB  3340:  GOSUB  3450:  GOSUB  3760 
RETURN 

2310  ’  Draw  Outline 

WINDOW  SCREEN  (0,  0)-(640,  325):  CLS 
’  Draw  body  outline 
2340  CIRCLE  (320,  72),  20 ,  3  .  ,  ,  1 

LINE  (363,  117)- (358 ,  124):  LINE  -(351,  162): 

LINE  -(355,  184):  LINE  -(398,  304) 

LINE  (370,  310):  LINE  -(320,  195) 

LINE  (277,  117)  (283,  124):  LINE  -(289,  162): 

LINE  (205,  184):  LINE  -(242,  304) 

LINE  -(270,  310):  LINE  -(320,  195) 

LINE  (331,  88)  (331,  93):  LINE  (346,  99): 

LINE  -(372,  101):  LINE  -(490,  137) 

LINE  -(480,  150):  LINE  -(363,  119) 

LINE  (309,  88 ) -  (309  ,  93):  LINE  -(294,  99):  LINE  (268,  101) 

LINE  (150,  137) 

LINE  (160,  150):  LINE  -(277,  119) 

LTNE  (208,  162)  (351,  162):  LINE  (288,  164)  (352,  168),  ,  B 

RETURN 

2650  ’  Draw  Front  Markers 

LINE  (310,  60) -(339,  67):  LINE  (302,  68)  (313,  62): 

PAINT  (320,  60) 

CIRCLE  (320,  75),  21,  3,  ,  ,  1.1:  PAINT  (320,  90) 

CIRCLE  (312,  75)  ,  4 . 4  : 

CIRCLE  (329,  75),  4 . 4:  P3ET  (312,  76),  1 


PSKT 

(  329  , 

75)  ,  1 

CIRCL 

K  (320 

.  70)  ,  4  , 

,  4, 

5.4: 

LINE  (320 

,  70)  (320 

,  72) 

:  LINK  (330,  70) 

1.1  NK 

(320  , 

72)  (310, 

70)  : 

LINE 

(317 ,  85)  (324  ,  85)  , 

2 

L  I  NR 

(  3  3  I  , 

93)  (320, 

97)  : 

LINE 

(309,  93)  : 

LINK 

(336  , 

95)  (320, 

102) 

LINK  (320,  97):  LINE  (312,  102):  LINE  (304,  95) 

LINE  (315,  100)  (318,  104):  LINE  (313,  155): 

LINK.  (320,  161):  LINE  (327,  155) 

LINK  (322,  104):  LINE  (325,  100):  PAINT  (320,  102),  3,  3: 

PAINT  (320,  158) 

LINE  (333,  118)  (351,  118):  CIRCLE  (320,  166),  4 

LINE  (317,  168)  (317,  192):  LINE  (320,  195): 

LINE  (323,  192):  LINE  (323,  168) 

RETURN 

'  Draw  Reverse  Body  Outline 
2020  WINDOW  (0,  0)  (640,  325);  CLS 

GOSUB  2340 
RETURN 

3150  ’  Draw  Back  Markers 

PAINT  (320,  72) 

LINE  (309,  92)  (331,  92):  LINE  (304,  96)  (336,  96) 

LINE  (300,  162)  (300,  170):  LINE  (340,  I62)-(340,  170) 

LINE  (329,  174)  (347,  174):  LINE  (347,  188): 

LIVE  (330,  191):  LINE  (329,  188) 

LINE  (329,  174):  LINE  (293,  174)  (311,  174): 


LINE 

-(311 , 

188) 

:  LINE 

-(302,  191) 

LINE 

- (293 , 

188) 

:  LINE 

-(293,  174) 

LINE 

(320  , 

187)  - 

(320. 

195):  LINE  (320,  112)-(320, 

LINE 

(320, 

194)  - 

(332  , 

198) :  LINE  - (345 ,  196) 

LINE 

(320, 

194)  - 

(308  . 

198)  :  LINE  - (295  ,  196) 

RETURN 

3310  ’  Draw  Outer  Circle 

CIRCLE  (320,  162),  239,  1 
CIRCLE  (320,  162),  231,  1 
PAINT  (320,  3),  1 

RETURN 

3340  ’  Draw  Outer  Square 

LINE  (86,  1 ) -  ( 654  ,  323),  2,  B 

LINE  (95,  C) - ( 545 ,  318),  2,  B 
PAT  NT  (320,  4),  2 
RFToRN 

3370  '  Draw  left  circle  and  right  square 
CIRCLE  (91.  162),  50  ,  3 

PAINT  (91 ,  162)  ,1,3 

LINE  (505,  132) - (593,  192),  3,  B 

PAINT  (515  ,  134)  ,  2 ,  3 

RETURN 

3450  ’  Draw  left  square  and  right  circle 

I.TNE  (47,  132) -(135,  192),  3,  B 

PAINT  (4  8 ,  134)  ,  2  ,  3 

CIRCLE  (549  ,  162)  ,  50  ,  3 

PATNT  (549  ,  1G2)  ,  1  ,  3 

RETURN 

’  Process  key  inputs 

3640  OUT  CRT,  UNBLANK:  RS  -  I NP ( ADDRESS  +  13):  IF  RS  <>  255  THEN 

3640 

3660  RS  =  I NP ( ADDRESS  +  13):  IF  RS  =  255  THEN  3670  ELSE  3660 

3670  K  0:  GOSUB  4000  ’  Get  initial  TRT  value 

3680  S  -  2:  RS  -  I NP ( ADDRESS  ♦  13) 

TF  RS  -  247  OR  RS  *  251  THEN  GOTO  3720  ELSE  GOSUB  4030 

JF  ZSEC ( 2 )  >  ZSEC(I)  f  180  THEN  NTC  =  I  -  1:  GOTO  1530 

GOTO  3680 

3720  K  -  4:  GOSUB  4000  '  Get  time  of  response  and  store 

IF  RS  247  THEN  ANSWER  =  1  ELSE  ANSWER  -  0 

RETURN 

3760  OUT  CRT,  UNBLANK:  RS  -  I NP ( ADDRESS  +  13): 

IF  RS  <>  255  THEN  3760 

3780  RS  I NP ( ADDRESS  +  13):  IF  RS  -  255  THEN  3790  ELSE  3780 

3790  K  0  GOSUB  4000  '  Get  initial  I RT  value 

3800  S  2:  RS  I NP ( ADDRESS  >  13) 

TF  RS  =  247  OR  RS  -  251  THEN  GOTO  3840  ELSE  GOSUB  4030 
IF  ZSEC (2)  >=  ZSEC (  1  )  +  180  THEN  NTC  -  I  1:  GOTO  1530 

GOTO  3800 

3840  K  -  4:  GOSUB  4000 

IF  RS  251  THEN  ANSWER  -  1  ELSE  ANSWER  -  0 
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RETURN 


4000  ’  Read  clock  and  store  time  in  array 
SETREGX ( AXREGX)  =  &H2C00 

CALL  INT86 (&H2 1 .  VARPTR (SETREGX  (0) )  ,  VARPTR ( GETREGX ( 0 ) ) ) 
HM  -*  GETREGX (CXREGX)  :  SH  =  GETREGX  (DXREGX) 

DAT (I,  (K  +  1))  =  HM  \  256:  DAT ( I ,  (K  +  2) )  =  HM  MOD  256 
DAT  ( I  ,  (K  +  3)  )  =  SH  \  256:  DAT  ( I  ,  (K  *■  4)  )  =  SH  MOD  256 
RETURN 

4030  '  Convert  Hr: Min: Sec  to  Sec  and  test  for  end 
ZTIME*  =  TIME# 

ZS  =  VAL (RIGHT# (ZTIME#,  2)) 

ZM  -  VAL (MID# (ZTTME# ,  4,  2)) 

ZH  =  VAL (LEFT# (ZT I ME# .  2)) 

ZM1  -  (ZH  *  60)  +  ZM 

ZSEC(S)  =  ( ZM1  *  60)  +  ZS 

RETURN 


Numerical  Memory 
NUMPAN . BAS 
07-28-88 


1  190 


1  200 

1330 

1350 

1360 


REM  * INCLUDE:  ’COMMON. BAS’ 

ADDRESS  =  1808  :  OUT  ADDRESS  <-15,146 
OUT  ADDRESS* 14,0 

SCREEN  2: SCREEN  0 : CLS : LOCATE  1,1,0 
DIM  SETREG%(7)  ,  GETREG7.C7) 

AXREG%-  0  :  CXREG7.  =  2:  DXREGX=3 


TRIALS- 24 

DIM  TME ( 25 ) ,MXT(24,4) ,DAT(25,16) ,ZSEC(6) ,ZBCD(4) ,ZBD(4) 

DIM  ZTOTIME (4 1 

N1=0:N2  =  0:N3'0: N4  =  0 : TRL  =  0 : T A -  0 : V 1 -  0 : V2  =  0 : V3  =  0 : NTC  =  0 
S  =  5 : GOSUB  3810 

’  Assign  1-4  digit  targets  for  each  trial 
FOR  TRL -  1  TO  TRIALS 

TME (TRL)  INT(RND  *  4)  +  1 

TF  TME (TRL)  =  1  THEN  Nl-Nl+1: 

IF  N1  >  TRIALS  /  4  GOTO  1190 
IF  TME (TRL)  =  2  THEN  N2=N2+ 1 : 

IF  N2  >  TRIALS  /  4  GOTO  1190 
IF  TME (TRL)  =  3  THEN  N3=N3+ 1 : 

IF  N3  >  TRIALS  /  4  GOTO  1190 
IF  TME  (TRL)  --  4  THEN  N4  N4  M  : 

IF  N4  >  TRIALS  /  4  GOTO  1190 
DAT (TRL ,11) - TME (TRL) 

FOR  TA  1  TO  TME  (TRL)  ’Assign  digits  to  target 
MXT(TRL.TA)  =  I  NT  (END  *10) 

IF  TA=  1  THEN  GOTO  1360 
TF  TA=3  THEN  GOTO  1330 
IF  T A “ 4  THEN  GOTO  1350 

VI  MXT(TRL.TA) :  V3^TA  1:  V2 - MXT ( TRL , V3 ) 

IF  VI -V2  THEN  GOTO  1260 
GOTO  1360 

IF  MXT (TRL , 3) =MXT (TRL , 2)  OR  MXT (TRL , 3) - MXT (TRL , 1 ) 
THEN  GOTO  1260 
GOTO  1360 

IF  MXT ( TRL ,  4 )  =  MXT ( TRL , 3 )  OR  MXT ( TRL , 4 ) = MXT (TRL , 2 ) 
OR  MXT (TRL , 4 ) =MXT (TRL , 1 )  THEN  1260 

NEXT  TA 

DAT  (TRI. ,  12)  ~MXT  (TRL  ,  1)  :  DAT  (TRL,  13)  =  MXT  (TRL,  2)  : 

DAT  (TRL. ,  14)  MXT  (TRL,  3)  :  DAT  (TRL,  15)  =MXT(TRL,4) 

NEXT  TRL 
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1410 

1440 

1470 

1500 


1610 

1645 

1665 

1750 


'  ITI 

S  =  6 : QOSUB  3810 

IF  ZSEC (6)  <  ZSEC (5) +14  THEN  1410 
COLOR  7,4 :CLS 
S  =  6 : GOSUB  3810 

IF  ZSEC (6)  <  ZSEC (5) +16  THEN  1440 

COLOR  7,6: CLS 
S=6: GOSUB  3810 

IF  ZSEC (6)  <  ZSEC (5) +18  THEN  1470 

COLOR  7, 2: CLS 
S=6 : GOSUB  3810 

IF  ZSEC ( 6 )  <  ZSEC  (5) +20  THEN  1500 

COLOR  7,0: CLS 

S=1 .GOSUB  3810  ’Start  Time 

SCREEN  1  ’  Start  session 

OUT  ADDRESS +14. 4 
FOR  TRL= 1  TO  TRIALS 
COLOR  1 , 1 

S  =  2 : GOSUB  3810  ’Clock  Time 

IF  ZSEC (2)  >=  ZSEC ( 1 ) + 1 80  THEN  NTC-TRI ALS- 1 : GOTO  1750 

CLS 

RS= INP (ADDRESS + 13)  :  IF  RS0255  THEN  1610 
GOSUB  1890  ’Draw  Sample 
S  = 1 :  GOSUB  4020 
S=2 :  GOSUB  4020: 

IF  ZTOTI ME (2)  <  ZTOTIME ( 1 ) +200  THEN  1645 

COLOR  0,0 

CLS:  S=l:  GOSUB  4020 
S=2 :  GOSUB  4020: 

IF  ZTOTIME (2)  <  ZTOTIME  ( 1 ) +300  THEN  1665 

GOSUB  2260  ’  Probe  Digit 
CLS 
NEXT  TRL 


'  End  session 

NTC-TRI ALS 

OUT  ADDRESS* 14,0 

SCREEN  2:  SCREEN  0 : COLOR  7 , 0 : CLS : LOCATE  1,1,0 
OPEN  *0* , 1 ,F** ’ .  NUM’ 

COLUMNS'  I  6 
PRINT# l ,SN$ ; ' , ’CD$ 

PRTNT# 1 , NTC .COLUMNS 
FOR  TRL- 1  TO  NTC 

PRI NT# 1 , DAT (TRL, 1 ) ; DAT (TRL, 2) ; DAT (TRL, 3) ; 

DAT (TRL , 4 ) ; DAT (TRL, 5) ; DAT (TRL, 6) ; 

PRTNT#1 , DAT (TRL , 7 ) ; DAT (TRL , 8) ; DAT (TRL , 9) ; 

DAT (TRL, 10) ; DAT (TRL , 1 1) ; DAT (TRL , 12) ; 
PRINT# 1 , DAT (TRL, 13) ; DAT (TRL, 14) ; DAT (TRL, 15) ; 
DAT (TRL , 16) 

NEXT  TRL:  CLOSE 
NXTNXT* ] 
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IF  NXT>  N  THEN  PRINT  ‘END  OF  SESSION*  : END : LOCATE  1,1,1 
CHAIN  T*(NXT) 

’  Screen  positions  for  digits 
1890  ON  TME(TRL)  GOSUB  1920,1960,2030,2130 
RETURN 

1920  LOCATE  12,20 

X~MXT (TRL , 1 ) : XP=X: PRINT  XP 
RETURN 

1960  LOCATE  12,18 

X-MXT (TRL . 1 ): XP=X: PRINT  XP ; 

M  MXT (TRL, 2) :XP=M: PRINT  XP 
RETURN 

2030  LOCATE  12,17 

X-MXT (TRL , 1 )  : XP~X : PRINT  XP  ; 

M=  MXT (TRL, 2)  : XP  ~  M : PR I NT  XP ; 

XN=MXT (TRL , 3) :XP=XN:PRINT  XP 
RETURN 

2130  LOCATE  12,15 

X  MXT (TRL , 1 )  : XP=  X : PRINT  XP ; 

M-MXT(TRL,2) :XF-M:PRINT  XP ; 

XN  MXT ( TRL , 3 ) : XP - XN : PRI NT  XP ; 

X’/.- MXT  (TRL,  4)  :XP^-XZ:  PRINT  XP 
RETURN 

2260  ’  Choose  if  probe  digit  is  new  or  an  original  target  digit 

LOCATE  12,20 
W  I  NT  ( 2  *  RND)  +  1 

IF  W  1  THEN  DAT (TRL , 10) -  1 : GOSUB  2530 
IF  W--2  THEN  DAT  (TRL  ,  10)  -  2  :  GOSUB  2060 

23  10  RS  T NP ( ADDRESS »  13)  :  IF  RS  <>  255  THEN  2310 

’  Chock  for  response 

2350  RS - TNP (ADDRESS* 13)  :TF  RS-255  THEN  2360  ELSE  2350 
2360  J  0 : GOSUB  3770  ’  Initial  IRT  value 

2370  S  2  RS  T NP ( ADDRESS *13) 

IF  RS  255  THEN  GOSUB  3810  ELSE  GOTO  2410 

1^  ZSFC ( 2 )  >  ZSEC (  1  )  *  100  THEN  NTC  =  TRI ALS  1 :  GOTO  1750 

GOTO  2370 

24  10  ,1  4UOSUH  3770 

IF  RS0  247  AND  RSO  25  1  THEN  GOTO  2370 
IF  RS  247  THEN  RS=1 
IF  RS  =  25  1  THEN  RS -  3 
F  0 

FOR  TA-  1  TO  TME (TRL) 

IF  MXT (TRL , TA)  P  THEN  F= 1 
NEXT  TA 

IF  F r 1  AND  RS  1  THEN  DAT ( TRL , 9 )  = 1 : GOTO  2500 
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2500 

2530 

2570 

2620 

2690 

2770 

2860 

2900 

2960 


IF  F  =  0  AND  RS  =  3  THEN  DAT (TRL , 9) = 1 : GOTO  2500 

DAT (TRL , 9) =2 

RETURN 


'  Pick  which  digit  will  reappear 

ON  TME (TRL)  GOSUB  2570,2620,2690,2770 

RETURN 

P  =  MXT (TRL , 1 ) :  XP=P 
PRINT  XP 
DAT (TRL, 16) =XP 
RETURN 

Q  =  I  NT  (2  *  RND)  +  1 
IF  Q=  1  THEN  P=MXT (TRL , 1 ) 

IF  Q  =  2  THEN  P=MXT(TRL,2) 

XP=  P :  PRINT  XP 
DAT (TRL , 16) =XP 
RETURN 

Q  =  INT  (3*  RND)  +1 
IF  Q=1  THEN  P=MXT ( TRL , 1 ) 

IF  0=2  THEN  P=MXT (TRL , 2) 

IF  0-3  THEN  P=MXT (TRL ,3) 

XP=P:  PRINT  XP 
DAT (TRL , 16) =XP 
RETURN 

0  =  INT  (4  *  RND)  +1 
IF  Q= 1  THEN  P  =  MXT (TRL ,  1 ) 

IF  Q=2  THEN  P=MXT(TRL,2) 

IF  0  3  THEN  P  =  MXT ( TRL , 3 ) 

IF  Q  =  4  THEN  P  MXT (TRL, 4) 

XP=P.  PRINT  XP 
DAT (TRL, 16) =XP 
RETURN 

ON  TME (TRL)  GOSUB  2900,2960,3020,3080 
RETURN 

P  INT  (10  *  RND) 

TF  P  MXT(TRL.l)  THEN  GOTO  2900 
XP  P:  PRINT  XP 
DAT (TRL ,16) =XP 
RETURN 

P=  INT  (10  *  RND) 

IF  P  MXT (TRL , 1 )  OR  P=MXT(TRL,2)  THEN  GOTO  2960 
XP  P:  PR  TNT  XP 
DAT (TRL . 16) =XP 
RETURN 
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3020  P=  INT  (10  »  RND) 

IF  P  =  MXT  CTRL , 1 )  OR  P=MXT(TRL,2)  OR  P=MXT(TRL,3) 

THEN  GOTO  3020 
XP=P :  PRINT  XP 
DAT  CTRL ,  16) =XP 
RETURN 

3080  P=  INT  (10  *  RND) 

IF  P=MXT ( TRL , 1 )  OR  P=MXT(TRL,2)  OR  P=MXT(TRL,3) 

OR  P- MXT (TRL , 4 )  THEN  3080 
XP  =  P :  PRINT  XP 
DAT (TRL. 16) =XP 
RETURN 

3770  ’  Read  clock 

SETREG7.  (AXREG7.)  -&H2C00 

CALL  I NT86 (&H2  1 , VARPTR ( SETREGX (0) ) . VARPTR (GETREGX ( 0 ) ) ) 
HM=GETREG% (CXREG%) :  SH~GETREG% (DXREGX) 

DAT  (TRL,  (JU)  )  HM  \  266:  DAT  (TRL  ,  (.1  +  2)  )  =  HM  MOD  256 
DAT  ( TRL  ,  ( .J  *  3 )  )  -  SH  \  256:  DAT  (TRL  ,  ( J  M)  )  =SH  MOD  256 
RETURN 

3810  ’  Convert  HR:MIN:SEC  to  seconds  and  test  for  end 
ZTIME*  TIME* 

ZS- VAL (RIGHT* ( ZT I ME$ , 2 )  ) 

ZM  VALCMIDS (ZTIME* ,4 ,2)  ) 

ZH- VAL ( LEFTS (ZT  1  ME* , 2 )  ) 

7, Ml  •  (ZH*60)  'ZM 
ZSEC(S) = (ZM1*60)  ♦ ZS 

RETURN 

4020  ’  Time  interval  duration 

SETRF.GX  ( AXREGX)  -&H2C00 

CALL  I NT06 (&H2 1 , VARPTR ( SETREGX ( 0 ) ) , VARPTR ( GETREGX ( 0 ) ) ) 
HM  GETREGZ  (CXREG7.)  :  SH=  GETREGX  (DXREG7.) 

Z1  HM  \  256:  ZTOHZ 1  * 360000 
Z2  HM  MOD  256:  ZTOM^Z2*6000 
Z  3  ~  S  H  \  256:  ZTOS-Z3MOO 
ZTOHS - SH  MOD  256 

ZTOT  I  Mi:  ( S )  ZTOH  +  ZTOM  +  ZTOS  * ZTOHS 
RETURN 


Simultaneous  Pattern  Comparison 
PATPAN . BAS 
07-28-88 


’  The  algorithms  for  generating  the  X  and  Y  dot  coordinates 
'  are  derived  from  R.  Irons  and  P.  Rose,  NBDL 
REM  ^INCLUDE:  ’COMMON. BAS’ 

ADDRESS- 1808 :  OUT  ADDRESS +1 5 , 1 46 
OUT  ADDRESS  +14,0 

SCREEN  2: SCREEN  0 : CLS : LOCATE  1,1,0 

DIM  XI (8) , Y1 (8) , X2 ( 8 ) , Y2 ( 8 ) ,ZSEC(6) .DAT (60, 10) ,ZTIME(2) 

’ CRT- 986 : BLANK -0 : UNBLANK= 1 : OUT  984,2  ’Z150 

CRT-728 : BLANK=7 : UNBLANK^ 15  ’Color  400-SH 

DIM  SETREGX (7) , GETREGZ (7) 

AXREGX=0 :  CXREG7-  =  2  :  DXREGX  3 

LOCATE  1,1,0 

’  Time  inter-test- interval 
S=5:G0SUB  2540 
1130  S  6:GOSUB  2540 

IF  ZSEC ( 6 )  <  ZSEC ( 5 ) +14  THEN  1130 

COLOR  7, 4: CLS 
1  160  S  =  6 : GOSUB  2540 

IF  ZSEC (6)  <  ZSEC (5) +16  THEN  1160 

COLOR  7, 6: CLS 
1190  SO: GOSUB  2540 

IF  ZSEC ( 6 )  <  ZSEC ( 5 ) +18  THEN  1190 

COLOR  7. 2: CLS 
1220  S  6:GOSUB  2540 

IF  ZSEC ( 6 )  <  ZSEC ( 5 )  *  20  THEN  1220 

TR I ALS  =  60 

S=l:GOSUB  2540  '  Get  start  of  session  time 

SCREEN  1 : COLOR  ,1  :CLS:  OUT  ADDRESS* 14,4 

FOR  TR- 1  TO  TRIALS 

S  ~  2 : GOSUB  2540:  IF  ZSEC (2)  >-  ZSEC(1)+180 

THEN  NTC-TR  1 . GOTO  2280 
’  Choose  X  coordinate  for  eight  dots 
FOR  I  1  TO  R 

1350  XI  (  I  )  =  (  INT(  (RND  (  1  )  #  139)  HO)  )  ’  Yields  #  between  10 

arid  149 
X2 ( I )  XI ( I ) 

FOR  TD= 1  TO  I 

IF  X1(I)-X1(I- TD)  or  XI (I) =X1 (I  TD)+3  or 
X 1  ( I )  X 1  ( I -TD)  -  3  THEN  1350 


3? 


1440 


1540 

1550 

1590 

1600 

1640 

1660 

1680 

1740 


1880 

1900 


NEXT  TD 
NEXT  I 

Choose  Y  coo- linates  for  eight  dots 
FOR  J=1  TO  8 

Y1 (J)  =  (INT<  (RND ( 1) *  160) +15) )  :  ’  Yields  *  between  15 
and  175 
Y2 (J) =Y1 (J) 

FOR  TD= 1  TO  J 

IF  Yl ( J) =Y1 (J-TD)  or  Yl (J) =Y1 (J-TD) +3  or 

Y1 (J) =Y1 (J-TD) -3  THEN  1440  » 

NEXT  TD  ! 

NEXT  J 


Generate  different  dot 
B= ( INT ( ( RND ( 1 ) *8) +1) ) 

X2 (B)  =  (INT ( (RND( 1) *139) +10)  )  » 

FOR  C=1  TO  8 

IF  C  =  B  THEN  1590 
IF  X2 (B) =X2 (C)  THEN  1550 
NEXT  C 

Y2 (B) = ( INT ( ( RND ( 1 ) *160) +15) ) 

FOR  D=1  TO  8  ! 

IF  D=B  THEN  1640  1 

IF  Y2 (B) = Y2 (D)  THEN  1600 
NEXT  D 


IF 

X2  (B) 
1660 

<  = 

ELSE 

(XI (B) +10) 
1680 

AND 

X2  (B) 

>=  (XI (B) -  10) 

THEN 

IF 

Y2  (B) 
1540 

<  = 

(Yl (B) +10) 

AND 

Y2  (B) 

>=  (Y1(B)-10) 

THEN 

Choose  whether  pattern  two  is  same  or  different 
A= INT (RND ( 1) *2) 

IF  A< 1  THEN  DAT (TR, 10) = 1 . GOTO  1740  ’  Same 

IF  A= 1  THEN  DAT ( TR , 1 0 ) =  2 : GOTO  2000  ’  Different 

Draw  same  patterns 

GOSUB  2420  ’  Blank  screen 
CLS 

LINE  ( 1 , 1) - (318 , 190)  ,  1  ,B 
LINE  ( 159 , 1) -  (  159 , 190)  ,  1 
FOR  1=1  TO  8 

X1=X1 (I) : Y1 =Y1 (I) 

X2=X1 (I) +159:Y2=Y1 (I) 

LINE  (XI . Yl) - (X1+ 1  ,  Y1+ 1)  ,  1  ,  B 
LINE  (X2 , Y2) - (X2+ 1 , Y2+ 1)  ,  1  ,B 
NEXT  I 

GOSUB  2480  ’  Unblank  screen 

RS=  INP  ( ADDRESS  +  13)  :  IF  RS0255  THEN  1880 
J=0 : GOSUB  2630  ’  Initial  IRT  value 

S  =  2 

RS = I NP ( ADDRESS + 1 3 ) :IF  RS=247  OR  RS=251  THEN  1950 
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ELSE  GOSUB  2540 

IF  ZSEC ( 2 )  >=  ZSEC ( 1 ) +180  THEN  NTC =TR- 1 : GOTO  2280 

GOTO  1900 

1950  J  =  4  : GOSUB  2630  *  Second  IRT  value 

IF  RS  =  25 1  THEN  DAT (TR , 9 ) = 2 : GOTO  1980  ’  Incorrect 
response 

IF  RS"247  THEN  DAT(TR,9)=1  ’  Correct  response 

1980  GOTO  2230 

2000  *  Draw  different  patterns 

GOSUB  2420 
CLS 

LINE  ( 1 ,  1 ) - (3 18 , 190)  .  1  .  B 
LINE  (159,1)  -  (159,190)  .1 
FOR  I  1  TO  8 

X1=X1 (I)  : Y 1 =  Y 1  (I) 

X2=X2 ( I ) + 159 : Y2=Y2 ( I ) 

LINE  ( X 1  , Y 1 ) - ( X  1  +  1  ,  Y 1 +  1 )  ,  1  ,  B 
LINE  (X2.Y2)  (X2+1 ,Y2+1)  , 1  ,B 

NEXT  I 
GOSUB  2480 

2140  RS -  1 NP ( ADDRESS  +13)  : I F  RS  <>  255  THEN  2140 

.1  0:  GOSUB  2630  ’  Tnitial  IRT  value 

2  16  0  S  =  2 

RS -  I NP ( ADDRESS  +13)  :  I F  RS=247  OR  RS^251  THEN  2200 
ELSE  GOSUB  2540 

IF  ZSEC (2)  >-  ZSEC ( 1 )  *  180  THEN  NTC  =TR -  1 : GOTO  2280 

GOTO  2160 

2200  J *4: GOSUB  2630  ’  Second  IRT  value 

IF  RS  24  7  THEN  DAT (TR , 9 ) -  2 : GOTO  2230  ’  Incorrect 
response 

2220  IF  RS  =  25  1  THEN  DAT ( TR , 9 )  -  1  ’  Correct  response 

2230  GOSUB  2.670  ’  ITT 

NEXT  TR 

Write  data  to  disk 
NTC  TRIALS 

2.280  SCREEN  2  :  SCREEN  0  :  COLOR  7 , 0  :  CLS  :  LOCATE  1,1,0 
OUT  ADDRESS *1  4.0 
OPEN  'O'  ,  1  ,F*  +  '  .  PAT' 

COLUMNS  I  0 

PRINT# 1 ,SN$ ; ' , * ,CD$ 

PRINT# 1 , NTC .COLUMNS 
FOR  TR  1  TO  NTC 

PRINT# 1 , DAT ( TR , 1) ; DAT (TR , 2) ; DAT ( TR , 3 ) ; DAT ( TR , 4 ) ; 
DAT ( TR , 5 ) ; DAT (TR , G ) ; DAT ( TR , 7 ) ; DAT ( TR , 8 ) ; 

DAT ( TR , 9 ) , DAT ( TR , 10) 

NEXT  TR: CLOSE 
NXT - NXT  +  1 

IF  NXT  >  N  THEN  PRINT  'END  OF  SESS I ON  *  : END : LOCATE  1,1,1 
CHAIN  T* ( NXT ) 
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2420 

2480 

2540 

2630 

2670 

2.680 

2700 


'  Toggle  blan'c 
OUT  CRT .BLANK 
RETURN 

’  Toggle  unblank 
OUT  CRT, UNBLANK 
RETURN 

'  Convert  HR:MIN:SEC  to  seconds 
ZTI ME$ “TI ME* 

ZS=VAL (RIGHT* (ZTIME* ,2) ) 

ZM=VAL (MID* (ZT1ME* ,4,2)) 

ZH-VAL (LEFT* (ZTIME* , 2)  ) 

ZM1 = (ZH*60)  +  ZM 

ZSEC (S) = (ZMI *60)  *ZS 
RETURN 


’  Read  clock 

SETREGX (AXREGX)  &H2C00 

CALL  I NT86 ( &H2 I , VARPTR (SETREGX ( 0 ) ) , VARPTR ( GETREGX ( 0 ) ) ) 
HM;  GETREGX (OXREGX)  :  SH-GETREGX (DXREGX) 

DAT (TR ,  ( J  +  1 ) )  -HM  \  256:  DAT (TR ,  ( J  +  2 ) ) = HM  MOD  256 
DATiTR, (J*3) )  SH  \  256:  DAT  (TR  ,  ( J  +  4  )  )  =  SH  MOD  256 
RETURN 


’  Time  inter- trial -interval 
CLS 

C  IiGOSUB  2700 

5  2  :  GOSUB  2700:  IF  ZTIME(2)  <  ZTlME(l)f25  THEN  2680 
RETURN 


’  Clock  values  in  hundreds  of  seconds 
SETREGX  (  AXREGX)  &I12C00 

CALL  I NT86 (&H2 1  , VARPTR ( GETREGX ( 0 ) )  , VARPTR (GETREGX ( 0 )  )  ) 
HM  GETREGX (OXREGX) : SH  GETREGX ( DXREGX ) 

Zt  HM  \  2  56 : ZH  Z 1  *  360000 
Z2  HM  MOO  256 :ZM  Z2« 6000 
Z3  SH  \  2  6  6  :  Z  C  Z 3  *  100 
ZHG  SH  MOP  256 
ZT I  ME  < S )  ZH * ZM<  ZS ' ZHS 
RETURN 
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’  Repeated  Acquisition 

’  RAP AN . BAS 

’  07-29-88 

REM  *  INCLUDE:  'COMMON. BAS ’ 

ADDRESS- 1808 :  OUT  ADDRESS+ 1 5 , 1 46 
OUT  ADDRESS  + 14,0 

SCREEN  2: SCREEN  0 : CLS : LOCATE  1.1,0 
S-5:G0SUB  2100  ’Start  i nter - tes t - in terval 

’CRT  906 : BLANK-0 : UNBLANK- 1 : OUT  984,2  ’Z-150 

CRT  728 : BLANK-7 : UNBLANK- 15  ’Color  400-SH 

DIM  SETREG7.(7)  ,  GETREGX  (7) 

AXHEG%=0  :  CXREG7.-2  :  DXREGX-3 

DEFINT  AY 
DIM  ZTOT I  ME ( 4 ) 

DIM  C#(16) ,C(16)  .DAT (1000, 10)  ,ZSEC(6)  ,ZBD(4)  , 

ZBCD ( 4 ) .SEQUENCE* (24) 

SEQS-0 : TO  1=3: T02  48 : CORRECT- 0 : ERRORS  =  0 : R  = 1 
TRIALS- 25: LENGTH- 1 2 

’  Read  sequences  from  DATA  statements 
FOR  I -l  TO  24 

READ  SEQUENCE* (I) 

NEXT  I 

CHA I NN* - SEQUENCE* (SEQNUM) 

’  Convert  'response  sequence'  to  integer 
FOR  I  ]  TO  LENGTH 

C* ( I )  MID* (CHAINN* , 1 , 1 ) 

C ( 1  )  VAL  (0*  (  1 )  ) 

NEXT  T 

’  Time  inter  test  interval 
1310  S  6:GOSUB  2100 

IF  ZSKC(6)  <  ZSEC ( 5 )  +  14  THEN  13  10 
COLOR  7 , 4 : CLS  ’  Screen  red 
1340  S-6:G0SUB  2100 

IF  ZSEC (6)  <  ZSEC (5) +16  THEN  1340 

COLOR  7, 6 :CLS  ’  Screen  yellow 
1370  S  ~  6 : GOSUR  2  100 

IF  ZSEC (6)  <  ZSEC ( 5 ) + 18  THEN  1370 

COLOR  7, 2  CLS  ’  Screen  green 
1400  S  RiGOSUn  2100 

IF  ZSEC  i  6 )  <  ZSEC ( 5 )  i 20  THEN  1400 

CLS: SCREEN  1: COLOR  0,0 
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S= 1 : GOSUB  2090 


Get  start  time 


1620 


I  660 
1670 
1600 


1736 
1  74  2 


1  76  0 


1  792 


1  04  6 


OUT  ADDRESS +14. 4 
FOR  1=1  TO  TRIALS 

’  Generate  stimulus  display  (rectangles) 

XI = 14 : Yl=6 : X2=67 : Y2=54 : X= 15 : Y= 13 : B0X=0 
CLS 

S=2: GOSUB  2090 

IF  ZSEC (2)  >=  ZSEG (  1 )  +  300  THEN  1845 

FOR  J= 1  TO  3 

FOR  K= 1  TO  4 

LINE  (XI ,Y1)  (X2.Y2) ,3.B 

X1=X1 +00 : X2=X2+  00 

BOX- ROX  + 1  : T F  BOX=  LENGTH  THEN  1620 
NEXT  K 

X  1  =  1  4  :  X2  -  67  :  Y1  =  Y1  +  60  :  Y2--Y2  +  60 
NEXT  J 

X 1 =  1 4 : Y 1 ~  6 : X2  =  67 : Y2  =  54 : K  0 : J  -  0 ; B  =  0 


’  Check  response 
FOR  M; 1  TO  LENGTH 

RS- 1 NP  (ADDRESS  +  13)  :IF  RS0255  THEN  1660 
H- 0 : GOSUB  2050  'Beginning  IRT  value 

S  =  2 

RS=INP (ADDRESS* 13) : IF  RS  255  THEN  GOSUB  2090 
ELSE  1735 

IF  ZSEC (2)  >  ZSEC (1) +300  THEN  1845 

GOTO  1680 

IK  RS  =  247  OK  RS  239  OR  KS^251  THEN  1742  ELSE  1680 
H  •-  4  :  IF  RS=  247  THEN  RS  1 
IF  RS  =  239  THEN  RS  =  2 
IF  RS  251  THEN  RS  3 
GOSUB  2050 

IK  IIS  C(M)  THEN  2380  ELSE  2470  '  Correct  or 

incorrect  response 

NEXT  M 

FOR  Ml  1  TO  1 0 : DAT ( R . Ml )  =  0 : NEXT  Ml  ’  Zero’s 
indicate  sequence  completion 
R  R  ♦  1 

S  5: GOSUB  2100 

S  =  6 : GOSUB  2100:IK  ZSEC(6)  <  ZSEC(5)+i  THEN  1792 
NEXT  I 


GOSUB  2320  ’  Un blank  screen 

SCREEN  2: SCREEN  0: COLOR  7 . 0 : CLS : LOCATE  1,1,0 
OUT  ADDRESS* 14,0 


’  Wr  i  t, e  data  to  disk 
NTC  R  1 

OPEN  'O' , 1 ,K*+ ' . ACQ ’ 

COLUMNS  10 

PRINT  *  1  ,8N* ;  *  ,  'CD* ,  *  , 'CHAINN* 


i 

i 


PRINT  #1 ,NTC .COLUMNS .LENGTH 
FOR  TR= 1  TO  NTC 

PRINT# 1 , DAT (TR , 1) ; DAT (TR , 2) ; DAT (TR , 3) ; DAT (TR , 4) ; 
DAT (TR , 5) ; DAT (TR , 6) ; DAT (TR , 7 ) ; DAT (TR ,8) ; 

DAT (TR , 9) ; DAT (TR , 10) 

NEXT  TR: CLOSE 
NXT=NXT+ 1 

IF  NXT>N  THEN  PRINT  'END  OF  SESSION' : END : LOCATE  1,1,1 
CHAIN  T*(NXT) 


1970  ’  Paint  squares 

LINE  (XI , Yl) - (X2, Y2) ,2 ,BF 
Xl=Xl+80 : X2=X2+80 
J  =  J+  1  :  B--B+  1 

IF  J=4  THEN  2020  ELSE  2030 

2020  XI- 14 :X267: Yl =Y 1 +60 : Y2= Y2+60 : J=0 

2030  RETURN 

2050  ’  Read  clock  and  store  time  in  data  array 

SETREGZ (AXREGX) -&H2C00 

CALL  INT86 (&H21 , VARPTR (SETREGZ (0) )  , VARPTR ( GETREGZ ( 0 ) )  ) 
HM-GETREGZ (CXREGZ) :  SH=GETREG% (DXREGZ) 

DAT ( R ,  ( H  + 1 ) ) = HM  \  256:  DAT (R , (H+ 2) ) =HM  MOD  256 
DAT(R,  (H+3)  )  r;SH  \  256:  DAT  (R  ,  (H+  4 )  1  ~SH  MOD  256 
RETURN 

2090  ’  Convert  HR: MIN: SEC  to  seconds 

2100  ZT I  ME*  =  T I  ME* 

ZS- VAL (RIGHT*  (ZTIME* ,2)  ) 

ZM-  VAL ( MI D* ( ZT I ME* , 4 ,2)  ) 

ZH-  VAL  (L  EFT*  (ZT  I  ME*  ,  2)  ) 

ZM1 = (ZH*60) *ZM 
ZSEC (S) - (ZM1 *60) *ZS 
RETURN 

2180  ’  Timeout  routine  -  blank  screen 

GOSUB  2260  ’  Toggle  blank  screen 
S -  1  : GOSUB  2700 

2210  S  2 : GOSUB  2700:  IF  ZTOTIME(2)  <  ZTOT I  ME ( 1 )  +  1 00  THEN  2210 
GOSUB  2320  ’  Toggle  unblank  screen 

RETURN 

2260  ’  Toggle  blank  screen 

OUT  CRT .BLANK 
RETURN 

2320  ’  Toggle  unblank 

OUT  CRT .UNBLANK 
RETURN 

2380  ’  Correct  response 

GOSUB  1970 
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S  =  3 : GOSUB  2700 

DAT (R , 9) =C (M)  ’  Response  code 

DAT(R,10)-M  ’  Sequence  position 
R=R  + 1 : C0RRECT=C0RRECT+ 1 

2430  S=4 : GOSUB  2700: IF  ZT0TIME(4)  <  ZT0TIME(3)+3  THEN  2430 
GOTO  1760 

2470  ’  Incorrect  response 

IF  RS= 1  THEN  DAT (R , 9) =4 : GOTO  2510 
IF  RS  =  2  THEN  DAT ( R , 9 ) = 5 : GOTO  2510 
IF  RS=3  THEN  DAT (R, 9) =6 
2510  DAT ( R , 10) =M 

R=R+ 1 : ERRORS = ERRORS + 1 
GOSUB  2180 
GOTO  1670 

DATA  1312132313232121 ,2323212131231313, 
1231312323123212, 1312323132321213 
DATA  3121232312132312 , 1312312121323231 , 

323 l 32 1 3 1 232 1213, 31321323132  12121 
DATA  2132313132312121 ,3213132312312123, 

232 1 2 1 21323 13132,23 12323 121312131 
DATA  3212321213213132, 1232132123213131 , 
1313121213232323,2313231232121313 
DATA  3232132121321312,2123123213132312, 

3  13232 1 3 1 32 12121  ,1 32323 13  12312123 
DATA  2323212313131212,3212121313212313, 
2323231312123131,3123213121323123 

2700  '  Timeout,  duration 

SETREGX (AXREG%)  &H2C00 

CALL  1  NT06  (&H2  1  ,  VARPTR  ( SETREGX  (  0 )  )  ,  VARPTR  (GETREG7.  (0)  )  ) 
HM-  GETRFG/i  ( CXREG7C )  :  SH’GETREGX  (DXREGX) 

Z 1  - HM  \  256 :ZTOH  =  Z 1*360000 
Z2  HM  MOD  256 : ZTOM  Z2*6000 
Z3  =  SH  \  2  56 : ZTOS-Z3*  100 
ZTOHS  STI  MOD  256 

7.T0T  1  Ml:  ( S )  r  ZTOH  » ZT0M  +  ZTOS  +  ZTOHS 
RETURN 


’  Visual  Scanning 

’  VI SPAN . BAS 

’  07-29-88 

REM  * INCLUDE:  'COMMON. BAS* 

ADDRESS= 1808 :  OUT  ADDRESS+ 1 5 , 1 46 
OUT  ADDRESS +14,0 

SCREEN  2: SCREEN  0:CLS: LOCATE  1,1,0 
DIM  A ( 26 ) , DAT (25 , 12) ,ZSEC(6> 

DIM  SETREG7 (7) .GETREGX (7) 

AXREGX  - 0  :  CXREG7.  =  2  :  DXREG%  =  3 

S  =  5 : G03UB  2150 
1 120  S  =6 : GOSUB  2150 

IF  ZSEC ( 6 )  <  ZSEC (51+14  THEN  1120 

COLOR  7 ,4 :CLS 
1150  S  6:G0SUB  2150 

IF  ZSEC (6)  <  ZSEC (5) +16  THEN  1150 

COLOR  7.14: CLS 
1180  S - 6 : GOSUB  2150 

IF  ZSEC (6)  <  ZSEC (5) +18  THEN  1180 

COLOR  7 , 2 : CLS 
1210  S  6: GOSUB  2150 

IF  ZSEC ( 6 )  <  ZSEC ( 5 ) +20  THEN  1210 


TRL =24 

number 

o  f 

trials 

NUM=  20 

number 

o  f 

letters  in  row 

LETT =2 

’ number 

o  f 

target  letters 

COLOR  7 

,  0 : CLS 

OUT  ADDRESS  + 14,4 

3~1:G0SUB  2150  ’  Get  start  of  session  time 

FOR  1=1  TO  TRL 

S ' 2 : GOSUB  2150 

IF  ZSEC (2)  >  =  ZSEC ( 1 )  +  180  THEN  NTC  =  I  -  1 : GOTO  1990 

FOR  J=1  TO  26:  A(.J)=  ,J  +  64  :  NEXT  J 

’  Choose  letters  for  sequence 

FOR  J=  1  TO  26:  T= 1  NT  (RND  (1)  *  (26- J))  +  J 

U=A (T)  :A(T)=A(J)  :A(J)=U 

NEXT  J 
C$=  '  ' 

FOR  J=  1  TO  NUM:  C*  =  C*  +  ‘  *  +  CHR* ( A ( J ) ) : NEXT  J 
Y  =  I  NT  (RND  (1)  *  2)  +  1 

ON  Y  GOTO  1450 ,1610 

1450  ’  Pick  target  digits  from  letter  sequence  (same  condition) 

DAT (I ,  10) =1 
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1610 


1700 

1820 

1830 

1  860 

1000 

1  925 
]  930 
1940 


FOR  J=  1  TO 

NUM 

T=  INT 

(RND 

(1)  *  (NUM-J)  ) 

U=  A  (T) 
NEXT  J 

:  A  (T) 

=A(J)  : A ( J) =U 

FOR  J=  1  TO 

LETT 

Q-  INT  (RND 

(1)  * 

(NUM-J))  +  J 

D#=  D* 

+  *  ‘ 

+  CHR* ( A (Q) ) 

IF  J=1 

THEN 

DAT ( I , 1 1 ) =  A  (Q) 

IF  J=  2 

THEN 

DAT(I , 12) = A (Q) 

A  (Q)  = 

A  ( J) 

NEXT  J 

AN=  247  .GOTO  1790 


’  Pick  new  target  letters  (different  conditionN) 
DAT ( I , 10) =2 
FOR  J=  1  TO  NUM 

Q=  INT  (RND  (1)  *  (NUM+l-J))  +  J 
U=  A (Q) :  A (Q) =  A(J)  :A(J)  =  U 
NEXT  J 

T=  NUM- INT  (RND  (1)  *  LETT) 

D#  =  ’  * 

FOR  J~  1  TO  LETT 

Q  =  INT  (RND  (1)  *  (LETT-J))  +  J 
D*  •”  Di  +  '  '  t  CHR#  (A  (T  +  Q)  ) 

IF  J= 1  THEN  DAT (I, 11)  A (T+Q) 

IF  J  =  2  THEN  DAT< I , 12)  A(T*Q) 

A (T+Q) -  A(TtJ) 

NEXT  J 

AN- 25 1 


’  Print  target  and  sequence  letters 

RS  TNP  (ADDRESS+  1  3)  :  IF  RS0  255  THEN  1790 
LOCATE  5,39  : COLOR  6,0  : PRINT  D* 

LOCATE  8,20  : PRINT  C$: COLOR  7,0 

RS ' I NP ( ADDRESS  <  13)  : I F  RS=255  THEN  1830  ELSE  1020 
K  0 : GOSUB  2110  ’  Get  initial  IRT  value 

’  Check  for  subject’s  response 
S -  2 : RS  I NP ( ADDRESS  +  13) 

IF  RS  255  THEN  GOSUB  2150  ELSE  1900 

TF  ZSEC  ( 2. )  >  -  7.SEC(1)  +  180  THEN  NTC-  T  1:  GOTO  1990 

GOTO  I860 
K  4  :  GOSUH  2110 

IF  RS <  >247  AND  RS0  251  THEN  1860 
IF  RS  AN  THEN  1925  ELSE  1930 
DAT  ( I  ,  9 )  =•  1  :  GOTO  1940 
DAT ( I  , 9 )  -  2 
CLS 
NEXT  I 

NTC=TRL 
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1990  SCREEN  2 : SCREEN  0 : COLOR  7 , 0 : CLS : LOCATE  1,1,0 
OUT  ADDRESS +14,0 
OPEN  'O’ . 1 ,F*+‘ . VIS' 

COLUMNS= 1 2 

PRINT  #1 ,SN*;  *  ,  'CD* 

PRINT  # 1 , NTC , COLUMNS 
2040  FOR  TR= 1  TO  NTC 

PRINT* 1 , DAT (TR , 1) ; DAT (TR , 2) ; DAT (TR ,3) ; DAT (TR , 4) ; 

DAT (TR , 5) ; DAT (TR , 6) ; DAT (TR ,7) ; DAT (TR , 8) ; DAT (TR9) ; 
DAT (TR , 10) ; DAT (TR , 11) ; DAT (TR , 12) 

NEXT  TR: CLOSE 
NXT  =  NXT  + 1 

IF  NXT> N  THEN  PRINT  'END  OF  SESS ION END : LOCATE  1,1,1 
CHAIN  T*(NXT) 

2110  '  Read  clock  and  storetime  in  array 
SETREGX ( AXREGX) =&H2C00 

CALL  INT86  (&I121  ,  VARPTR ( SETREGX  (0)  )  ,  VARPTR  (GETREGX  ( 0 )  )  ) 

HM-  GETREG%  (CXREG7.)  :  SH^GETREG  (DXREGX) 

DAT  C I ,  (K+ 1 ) ) - HM  \  256:  DAT ( I ,  ( K  +  2 ) ) - HM  MOD  256 
D AT (1 ,  (K+3) ) =SH  \  256:  DAT (I ,  (K+4) ) =SH  MOD  256 
RETURN 

2150  ’  Convert  HR:MIN:SEC  to  seconds 
ZTIME*=TIME* 

ZS- VAL (RIGHT* (ZTIME* , 2)  ) 

ZM-VAMMID* (ZTIME* ,4,2)) 

ZH- VAL (LEFT* (ZTIME* ,2) ) 

ZM1  =  (ZH»60)  *■  ZM 

ZSEC (S) = (ZM1«60)  +  ZS 

RETURN 
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Common 
COMMON. BAS 
07-28-88 


DEFINT  A-Y  ’  Defined  as  integer  for  speed  in  execution 
DIM  T*(20) 

COMMON  SN# , CD# , NXT , T$ ( ) , N , F$  , SEQNUM 

’  SN#  -  subject  name 

’  CD#  =  current  date 

'  NXT  next  test  in  sequence 

'  T# ( )  =  string  array  containing  sequence  of  tests 

’  N  ~  number  of  tests  in  battery 
’  F$  -  string  variable  for  file  name 
’  SFQNIIM  variable  containing  number  of  repeated 
’  acquisition  sequence 
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